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REM ! 


IDENTIFICATION 


is PRODUCT CODE: AC-8464C-MC 

13 PRODUCT NAME: CZDHFCO DH11 SINGLE LINE DATA TEST 
15 DATE: JUNE 1985 

17 MAINTAINER: NAC SOFTWARE ENGINEERING 

19 AUTHOR : MICHAEL DAVIS 


22 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
23 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
24 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
25 tanh FOR ANY ERRORS THAT MAY APPEAR IN THIS 

26 ° 


28 NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF SOFTWARE ON 
29 EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED 
30 COMPANIES 


34 COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION 
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i. ABSTRACT 


THE DH11 SINGLE LINE DATA TEST VERIFIES THAT ALL 
CHARACTERS (0-377), EACH LINE CAN TRANSMIT AND RECEIVE 
AT ALL SPEEDS (8 BITS PER CHARACTER) AND ALL CHARACTER 
LENGTHS CAT A SPEED OF 9600 BAUD). 
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> 


HLL HLPDL > > 


me ee 


a 


REQUIREMENTS 
EQUIPMENT 


PDP-11 FAMILY STANDARD COMPUTER WITH 4KW OF MEMORY 
ASR-33 TELETYPE OR EQUIVALENT 

DHil ASYNCHRONOUS MULTIPLEXER 

DMil MAINTENANCE CARD INSTALLED 


_ STORAGE 


THE PROGRAM LOADS INTO 4KW OF MEMORY 
LOADING PROCEDURE 


THE STANDART PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED 


STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 

AFTER PROGRAM LOAD CINITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART 


SWOO=1 
TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART 
SWOL=1 

STARTING ADDRESS 

THE STARTING ADDRESS FOR ALL TESTS IS 000200 

THE RESTART ADDRESS FOR ALL TESTS I 0002000 

THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 
PROGRAM AND/OR OPERATOR ACTION ; 

INITIAL PROGRAM START 

LOAD PROGRAM INTO MEMORY 

LOAD ADORESS 000200 

CLEAR CONSOLE SWITCHES 

PRESS START 

THE PROGRAM WILL TYPE “DH11 SINGLE LINE DATA TEST” 


AND WILL THEN TYPE “VECTOR ADDRESS-" AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD. 


NRE SEO ERG Cn ea eae nara 
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1 
: 4.3 (CONT’D) 
4 4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
: FOR THE DOH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 
7 NOTE: WORDS IN ANGLE BRACKETS, I.E. <CARRIAGE RETURN> MEAN THAT 
: THE TELETYPE KEY WITH THE NAMED FUNCTION SHOULD BE STRUCK 
10 IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM 
11 WILL TYPE “2?” AND WILL REPEAT THE SECOND MESSAGE OF 4.3.1.5 
12 4.3.1.7 THE PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS-” 
13 AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
14 
15 4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE 
.. DH1i1 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 
1 
18 IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL TYPE 
19 "2?" AND WILL THEN REPEAT THE MESSAGE OF 4.3.1.7 
20 4.3.1.9 THE PROGRAM WILL TYPE “R” TO INDICATE THAT IT IS 
21 ABOUT TO START TESTING, AND THEN TESTING WILL BEGIN 
22 
23 4.3.2 PROGRAM RESTART WITH ALL SWITCHES DOWN 
24 
25 4.3.2.1 PERFORM 4.3.1.2 TO 4.3.1.5 
26 4.3.2.2 THE PROGRAM WILL TYPE “DHi1l SINGLE LINE DATA TEST” 
27 AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9 
28 
29 4.3.3 PROGRAM RESTART WITH SWOO=1 
30 
31 4.3.3.1 LOAD ADDRESS 000200 
32 4.3.3.2 SET SWOi=1 
33 4.3.3.3 PRESS START 
= 4.3.3.4 THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 TO 4.3.1.9 
3 
36 4.3.4 PROGRAM RESTART WITH SWO1=1 
37 3 
38 4.3.4.1 LOAD ADDRESS 000200 
39 4.3.4.2 SET SWO1=1 
40 4.3.4.3 PRESS START 
41 4.3.4.4 THE PROGRAM WILL TYPE “DH11 SINGLE LINE DATA TEST” 
42 AND WILL THEN TYPE "TEST PC-*" AND WILL WAIT FOR AN INPUT 
43 FROM THE TELETYPE KEYBOARD 
ag 4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
45 BE STARTED FOLLOWED BY <CARRIAGE RETURN> 
46 4.3.4.6 THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS STARTED 
47 AND WILL START TESTING AT THE SELECTED TEST. 
48 | 
49 NOTE: CARE MUST BE TAKEN WHEN THS FEATURE IS USED, SINCE 
50 THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS THAT 
= IS IN THE MIDDLE OF A TEST 
53 NOTE: IF IT IS DESIRED TO LOOP ON THE TEST THAT IS SELECTED 
54 SET SW14=1 BEFORE ENTERING THE TEST ADDRESS 
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1 

: ~ OPERATING PROCEDURE 

3.1 OPERATIONAL SWITCH SETTINGS 

6 SWi5=1, HALT ON ERROR 

7 SW14=1, LOOP ON CURRENT TEST 

8 SWi3=1, SUPPRESS ERROR TYPEOUT 

9 SWii=1, INHIBIT ITERATIONS 
10 SWi0=1, ESCAPE 10 NEXT TEST ON ERROR 

11 SWO9=1, FREEZE VARIABLE PARAMETER IN CURRENT TEST 
12 SWO1=1, START PROGRAM AT SELECTED TEST 
-. SWOO=1, CHANGE PARAMETERS AT PROGRAM RESTART 
15 3.2 SUBROUTINE ABSTRACTS 
16 
po 3.2.1 TRAPCATCHER (LOCATIONS 000000-000776) 
19 THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS 
20 AND TRAPS. THE AREA FROM 000000-000776 IS LOADED 
2 WITH THE FOLLOWING SEQUENCE 
23 e 
24 0 
25. 4 
26 0 
27 aoe 
26 772 
29 0 
30 776 
33 IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS, THE PROGRAM 
34 WILL HALT WITH THE PC 2 GREATER THAN THE ADDRESS TO 
35 WHICH THE PROGRAM TRAPPED. THE PROCESSOR STACK MAY 
36 BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS WHEN THE 
ze TRAP OR INTERRUPT OCCURED. 

8 
39 3-2.2 START (PROGRAM INITIALIZATION) 
40 
41 THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS, 
42 TYPES THE PROGRAM TITLE MESSAGE, AND INPUTS THE VECTOR 
ro AND CONTROL REGISTER ADDRESSES OF THE DHi1 TO BE TESTED. 
45 5.2.3 BEGIN (PROGRAM START AND RESTART) 
46 
47 THIS ROUTINE IS ENTERED IMMEDIATLY AFTER “START” 
48 AND EACH TIME A PROGRAM PASS HAS BEEN COMPLETED. 
ag THE ROUTINE SETS UP THE PROCESSOR STACK AND STATUS WORD 
50 AND THEN TRANSFERS CONTROL TO THE TEST AT WHICH 
31 TESTING WILL BEGIN. IF SWO1=0 WHEN THIS ROUTINE IS ENTERD 
32 TESTING WILL START AT Ti CTEST 1). IF SWOl=1 WHEN 
33 THIS ROUTINE IS ENTERED, TESTING WILL START AT THE PC 
34 ENTERED FROM THE TELETYPE KEYBOARD. 


2 eee mera eer oea ae 
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3.2.4 


i 


3.2.6 


EOP CEND OF PASS) 


THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS 
HAVE BEEN COMPLETED. THIS ROUTINE TYPES THE MAINDEC 
IDENTIFICATION CODE OF THE PROGRAM, CLEARS ERROR FLAGS 
AND UPDATES THE PASS COUNT. IF THE PROGRAM WAS LOADED 
UNDER ACTi1 OR DOP, THE ROUTINE CHECKS FOR RETURN TO 
THE ACT11 OR DOP MONITOR. IF THE PROGRAM IS NOT UNDER 
MONITOR CONTROL, THE ROUTINE TRANSFERS TO BEGIN. 


SCOPER (SCOPE LOOP AND ITERATION HANDLER) 


THIS ROUTINE IS ENTERED EACH TIME A TEST IS COMPLETED. 

THE ROUTINE CHECKS FOR THE FOLLOWING UPON ENTRY 

A) IF SWi0=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST 
IN SEQUENCE, AFTER CLEARING ERROR FLAGS. 

B) IF SWil=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST 
SEQUENCE, AFTER CLEARING ERROR FLAGS. | 

C) IF SWi4=1, THE ROUTINE WILL LOOP ON THE CURRENT TEST 
REGARDLESS OF THE ITERATION COUNT. 


IF NONE OF THE ABOVE IS TRUE, THE ROUTINE WILL ADD 1 

TO THE COUNT OF TEST ITERATIONS, AND COMPARE THIS VALUE 
TO THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED. 
IF THESE NUMBERS ARE EQUAL, THE ROUTINE WILL TRANSFER 
TO THE NEXT TEST IN SEQUENCE. THE THE NUMBERS ARE NOT 
EQUAL, THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED. 


SCOPiR (FREEZE ON CURRENT DATA) 


THE CALL TO THIS ROUTINE FOLLOWS IMMEDIATLY AFTER THE 

THE CALL TO THE ERROR HANDLER IN THOSE TESTS THAT HAVE 
VARIABLE PARAMETERS. THIS ROUTINE IS ALWAYS ENTERED IN 
THOSE TESTS, WHETHER OR NOT AN ERROR OCCURS. 

IF SWO9=1, THE ROUTINE WILL TRANSFER CONTROL BACK TO THE 
TEST AT A POINT WHICH WILL ALLOW REPEATING THE FUNCTION 
UNDER TEST CONTINUOUSLY WITH THE SAME DATA. IF THIS 
OPTION IS SELECTED, THE ROUTINE “SCOPER” IS NEVER ENTERED 
AND ITERATION COUNTS WILL NOT BE UPDATED. 


_— — 
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5.2.7 ERRORS CERROR HANDLER) 


THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY. 

WITH ALL CONSOLE SWITCHES DOWN, THE ROUTINE PROCEDES AS FOLLOWS: 

A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER 
IS ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTION 
ITSELF IS FETCHED. THE 8 LSB OF THE EMT 
INSTRUCTION ARE THE ERROR CODE. THIS CODE IS 
USED TO ACCESS A TABLE OF ERROR MESSAGES AND ERROR 
DATA STORAGE LOCATIONS. 

B) IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY 
DURING THIS PASS, A COMPLETE ERROR REPORT IS MADE 
IF THE TEST THAT FAILED FAILED MOR THAT ONCE DURING 
THE CURRENT PASS, ONLY THE DATA RELATING TO THE FAILUER 
IS TYPED. IF SWi3=1, NO ERROR TYPEOUT IS MADE. 

C) THE ROUTINE NOW CHECKS FOR HALT ON ERROR. IF SWiS=1 
THE PROGRAM WILL HALT WITH THE PC OF THE CALL TO 
THE ERROR ROUTINE IN RO. IF SWi5=0, THE PROGRAM WILL 
NOT HALT, BUT WILL CHECK FOR ESCAPE TO NEXT TEST. 

D) IF SWi0=0, THE ROUTINE WILL RETURN 
TO THE TEST IN PROGRESS. IF SW1i0=1, THE ROUTINE WILL 

c ABORT THE CURRENT TEST, AND TRANSFER TO THE NEXT 

TEST IN SEQUENCE, THRU THE ROUTINE “SCOPER”. 


3.2.8 TRPSRV CTRAP DECODE AND DISPATCH) 


THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION 
THAT CAUSED TH PROGRAM INTERRUPT, AND TRANSFERS CONTROL 
TO THE ROUTINE THRU THE TABLE “TRPTAB” USING THE 8 LSB 
OF THE TRAP INSTRUCTION AS AN OFFSET TO THE POINTER TO 
THE ROUTINE TO BE ENTERED. 


SEQ 7 
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1 

: 3.5 PROGRAM AND OR OPERATOR ACTION 

; 3.3.1 PROGRAM START WITH ALL SWITCHES DOWN 

6 5.3.1.1 REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM 

; BEHAVIOR. 

9 5.3.1.2 AFTER “R” HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION 
10 WILL BEGIN. EACH TEST WILL BE REPEATED A SELECTED NUMBER 
il OF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST) 
- AND THEN THE PROGRAM WILL PROCEED TO THE NEXT TEST. 

1 

14 3.3.1.3 WHEN ALL ITERATIONS HAVE BEEN COMPLETED, THE PROGRAM 

15 WILL TYPE “CZDHF-C” AND THEN RESTART TESTING AT TEST 1 
16 (LOCATION T1 IN THE PROGRAM). 

17 

18 3.3.1.4 IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE 
19 ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS. 
20 

21 3.3.2 PROGRAM START WITH SWOO=1 

22 

oo THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1 
2 

25 3.3.3 PROGRAM START WITH SWO1i=1 

26 

27 1 REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR 

28 

29 3.3.3.2 TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED 

4 AND WILL CONTINUE AS DESCRIBED IN 5.3.1.2 

1 
32 5.3.3.3 AFTER “CZDHF-C” HAS BEEN TYPED, THE PROGRAM WILL 
33 RESUME TESTING AT TEST 1 
34 
35 3.3.4 PROGRAM OPERATION WITH SWi5=1 
36 
37 SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR, 

38 THE PROGRAM WILL HALT AFTER THE ERROR TYPEOUT, AND 

39 THE PC+2 OF THE CALL TO THE ERROR ROUTINE WILL BE 

40 DISPLAYED IN RO. 

41 

42 3.3.5 PROGRAM OPERATION WITH SW13=1 

43 

ne SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR 
4 

Po 3.3.6 PROGRAM OPERATION WITH SWil=1 

4 

48 SAME AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE 
4 ONLY | 

= 5.3.7 PROGRAM OPERATION WITH SW10-1 

2 
53 SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR 
54 THE CURRENT TEST WILL BE ABORTED, AND THE PROGRAM 


35 WILL PROCEED TO THE NEXT TEST IN SEQUENCE. 


ES SE a ee ee See 


SEQ & 


are oe < 
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1 
2 S. (CONT'D) 
~ 5.5.8 PROGRAM OPERATION WITH SW1i4=1, OR SWO9=1 
6 THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING. 
7 SEE SECTION 6.3 FOR THEIR USE. 
8 
9 ERRORS 
10 
1i 6.1 ERROR HALTS 
12 
13 THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS 
14 IS AS FOLLOWS 
1 
16 PC+2 MESSAGE 
17 HEADER (IF APPLICABLE) 
18 DATA CIF APPLICABLE) 
1 
20 WHERE 
21 PC+2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER + 2 
22 MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FATLURE 
23 HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW 
24 DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE 
25 IF THE SAME ERROR OCCURS IN A GIVEN TEST ON THE SAME 
26 PASS, AND IF DATA IS ASSOCIATED WITH THAT ERROR, ONLY 
27 DATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS 
8 
29 IF NO DATA IS ASSOCIATED WITH THE ERROR 
30 THE COMPLETE ERROR MESSAGE IS TYPED. 
31 
32 6.1.1 ERROR DESCRIPTIONS 
33 
34 SEE LISTING FOR DETAILS OF ERRORS 
35 
36 6.2 ERROR RECOVERY 
37 
38 6.2.1 SwW15=0 
40 IF THE PROGRAM IS RUN WITH SWi5=0, NO OPERATOT ACTION IS 
41 REQUIRED TO CONTINUE TESTING 
42 6.2.2 SwWiSe1 
4 
44 IF THE PROGRAM 1S RUN WITH SWi5=1, TO CONTINUE TESTING 
45 AFTER THE PROGRAM HAS HALTED, PRESS THE PROCESSOR 
46 CONSOLE CONTINUE SWITCH 
48 6.2.3 ILLEGAL INTERRUPTS 
50 IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT 
51 SELECTED DURING PROGRAM INITIALIZATION, THE PROGRAM WILL 
52 HALT IN THE TRAPCATCHER. THE ADDRESS AT WHICH 
53 THE PROGRAM HALTS IS 2 GREATER THAN THE ADDRESS 
54 TO WHICH THE INTERRUPT OCCURED. THE PROGRAM MUST BE 
55 RESTARTED AT 200 TO RECOVER FROM THIS ERROR. 


i FT i Ss nn hal 
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6.5.5 


SCOPE LOOPING 

TO SCOPE ON A SPECIFIC TEST, SET SW14=1 AND SW13=1 

THIS WILL CAUSE THE PROGRAM TO CONTINUQUSLY LOOP ON THE 
SAME TEST, AND WILL CAUSE ALL ERROR TYPEOUTS TO BE INHIBITED 
TO SCOPE ON A SPECIFIC VALUE OF A PARAMETER WITHIN 

A TEST, SET SWO9=1 TO FREEZE THE DATA 

(SEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE) 
CCONT’D) 

PROGRAM START TO SCOPE LOOP ON SELECTED TEST 

PERFORM SECTION 4.3.4 WITH SW14=1 

RESTRICTIONS 

STARTING 

THE DH11 TEST CARD MUST BE INSTALLED 

RUNNING 

NONE 

MISCELLANEOUS 

EXECUTION TIME 

THE TIME FOR ONE PASS OF THE PROGRAM (END OF 

TYPEOUT OF CZDHF-C TO END OF TYPEOUT OF CZDHF-C) 

IS GIVEN FCR VARIOUS PROCESSORS IN THE TABLE BELOW 


TIME 
PROCESSOR 


POP-11/05,10 
PDP-11/20 
PDP-11/740 
PDP -11/45 


CZDHF -CO 
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10. 





PROGRAM DESCRIPTION 


THE FIRST GROUP OF TESTS TRANSMITS ALL CHARACTERS (0-377) 
ONE AT A TIME AT A LINE SPEED OF 9600 BAUD AND A 
CHARACTER LENGTH OF 8 BITS. EACH LINE IS CHECKED IN AN 
INDIVIDUAL LOOP. EACH TEST IN THIS GROUP 

CAN BE SET UP UNDER PROGRAM CONTROL TO LOOP ON A SINGLE 
CHARACTER USING THE FREEZE ON DATA (SWO9) OPTION. 


THE NEXT GROUP OF TESTS VERIFIES THAT ALL CHARACTERS CAN 
BE TRANSMITTED AT EACH STANDARD SPEED (50-9600 BAUD) 

AT 8 BITS PER CHARACTER. EACH LINE IS TESTED IN AN 
INDIVIDUAL TEST LOOP, AND A PARTICULAR SPEED CAN BE 
CHOSEN FOR SCOPING BY USING THE FREEZE ON DATA OPTION. 


THE FINAL GROUP OF TESTS TRANSMITS ALL CHARACTERS AT 

EACH CHARACTER LENGTH (5-8 BITS) AT 9600 BAUD ON A SINGLE 
LINE. EACH LINE IS TESTED IN AN INDIVIDUAL TEST LOOP 

AND A PARTICULAR CHARACTER LENGTH CAN BE CHOSEN FOR 
SCOPING USING THE FREEZE ON DATA (SWO9) OPTION. 


LISTING 





SEQ i1 
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SD UI S Wl) he 


750 
CLEAN END OF PASS 
MESSAGE. 

751 

7S2 


7355 
TCH REGISTER* 
754 


; DHMAC-A - DH11 MACRO LIBRARY 
; COPYRIGHT 1985, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


LIST 


ME 
-NLIST MC,MD,CND 


CMS REPLACEMENT HISTORY 


ag 
«8 
«7 


*6 
a5 


«4 
«3 
«2 


«1 


SKONETSKI 26-APR-1985 16: 
SKONETSKI 22-APR-1985 ef 
4 





SKONETSKI 22-APR-1985 1 
SKONETSKI 22-APR-1985 14: 
SKONETSKI 22-APR-1985 08: 


SKONETSKI 18-APR-1985 14:20:15 
SKONETSKI 12-APR-1985 10:34:52 
SKONETSKI 11-APR-1985 16:00:24 


SKONETSKI 11-APR-1985 15:49:05 











SEQ 12 


3; 3 


“FIXED TYPO CAUSING ASSEMBLY ERRORS” 
"TYPO ERROR IN VECTOR CHANGE CODE SOURCE FIXED” 
"ADDED CODE TO SET VECTORS FOR PWR FAIL. ERRORS, AND EMT 


“FIXED BRANCH ERROR IN END OF PASS ROUTINE” 
“FIXED BUG CAN OCTASC MACRO CALL WAS WRONG) AND ADDED A 


“ADDED SOFTWARE SWITCH REG SUPPORT, BUT UNTESTED” 
“FIXED PROBLEMS WITH SPURIOUS CR/LFS" 
“ADDED MACRO FROM SYSMAC.SML THAT SIZES FOR SOFTWARE SWI 


"LIBRARY FOR DHii1 DIAGNOSTICS” 
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-LIST ME 
-NLIST MC,MD,CND 
-HEADER ¢/1972, 1976, 1985/,+t/DH1i1 SINGLE LINE DATA TEST/, t/CZDHF-CO/ 


sSTARTING PROCEDURE 
;LOAD PROGRAM 

s;LOAD ADDRESS 000200 

sPRESS START 

sPROGRAM WILL TYPE DH1i SINGLE LINE DATA TEST 

sPROGRAM WILL TYPE “VECTOR ADDRESS-” 

;TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 

sFOR THE DHil TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
sPROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-”“ 

sTYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 

sFOR THE DHi1 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
sPROGRAM WILL TYPE "R” TO INDICATE THAT TESTING HAS STARTED 
sAT THE END OF A PASS, PROGRAM WILL TYPE “ CZDHF-CO “ 

sAND THEN RESUF TESTING 


-TITLE CZDHF-COo 
BLE 


;SWITCH REGISTER OPTIONS 


SW15=100000 
SW14=40000 
SW13=20000 


3*1,HALT ON ERROR 
;=1,LO0P ON CURRENT TEST 
3;=1, INHIBIT ERROR TYPEOQUT 


3=1, INHIBIT ITERATIONS 
SW10=2000 s=1,ESCAPE TO NEXT TEST ON ERROR 
:=1,LO0P WITH CURRENT DATA 


SWO1=2 sRESTART PROGRAM AT SELECTED TEST 
SWOO=1 sRESELECT VECTOR AND CONTROL i 
;ADDRESS AFTER PROGRAM RESTAR 





SEQ 13 
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620164 


022626 











sREGISTER DEFINITIONS 


RO=80 
Ri-=s1 
R2=82 
R3=83 
R4 284 
R5=85 
SP =#6 
PC=87 


;GENERAL REGISTER 
sGENERAL REGISTER 
;GENERAL REGISTER 
sGENERAL REGISTER 
s;GENERAL REGISTER 
sGENERAL REGISTER 
sPROCESSOR STACK POINTER 
sPROGRAM COUNTER 


sLOCATION EQUIVALENCIES 


;SWR=177570 


;LIGHTS=177570 


PS*177776 


STACK=ENDCOD +200 


;CONSOLE SWITCH REGISTER 
;PDP-11/45 DISPLAY REGISTER 
sPROCESSOR STATUS WORD 

sSTART OF PROCESSOR STACK 


sINSTRUCTION DEFINITIONS 


PUSH1SP=5746 


POP2SP =22626 

; 

-MACRO HLT 
EMT 


-ENDM HLT 
; 


i 
BIT15=100000 
BI7T14=40000 


sDECREMENT PROCESSOR STACK 1 WORD 
sINCREMENT PROCESSOR STACK 1 WORD 
sSAVE RO ON STACK 

sRESTORE RO FROM STACK 

sDECREMENT STACK TWICE 

;INCREMENT STACK TWICE 


$A 
$A 





SEQ 14 
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0 


-ENDR 








; TRAPCATCAER FOR ILLEGAL INTERRUPTS 


.=0 
-REPT 200 


+ 
HALT 





sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s;EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS a 
s EXAMINE Lage a -s FIND CAU 
sUNEXPECTED TR gy THIS LOCATION 
;EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
;EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
SEXAMINE STACK TO FIND CAUSE 
sUNEXPECTEO TRAP TO THIS LOCATION 
: EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
IND CAUSE 





























s;UNEXPECTED TR 

VEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TG THIS LOCATION 











-_ ee 8 


SEQ 16 
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000146 000000 HALT sEXAMINE STACK TO FIND CAUSE 
090150 000152 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000152 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000154 000156 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000156 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000160 000162 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000162 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000164 000166 +2 ;UNEXPECTED TRAP TO THIS '"OCATION 
000166 0000 HALT sEXAMINE STACK TO FIND CAUSE 
000170 000172 .+2 sUNEXPECTED TRAP TO THIS LOCATION 
000172 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000174 000176 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000176 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000200 000202 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000202 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000204 000206 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000206 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000210 000212 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000212 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000214 000216 +2 sUNEXPECTED TRAP TO THIS LOCATIOM 
000216 HALT sEXAMINE STACK TO FIND CAUSE 
000220 000222 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000222 HALT IND CAUSE 
0C0224 000226 -+2 
060226 000000 HALT 
000230 900232 +2 
000232 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000234 000236 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000236 HALT sEXAMINE STACK TO FIND CAUSE 
000240 000242 +2 TED TO THIS LOCATION 
000242 HALT sEXAMINE STACK TO FI 
000244 000246 +2 EO TRAP TO THIS LOCATION 
000246 000000 HALT ph STACK TO FIND CAUSE 
000250 000252 te D TRAP TO THIS LOCATION 
000252 000000 HALT ; EXAMINE STACK TO FIND CAUSE 
000254 000256 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000256 000000 HALT ;EXAMINE STACK TO FIND CAUSE 
000260 000262 -%2 s;UNEXPECTED TRAP TO THIS LOCATION 
000262 000000 HALT sEXAMINE STACK TO FIND C 
000264 000266 -*2 CTED TRAP TO THIS LOCATION 
000266 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000270 000272 +2 sUNEXPECTED TRAP TO THIS LOCATION 
060272 HALT s EXAMINE STACK TC FIND CAUSE 
000274 000276 +2 s;UNEXPECTED TRAP TO THIS LOCATION 
000276 000000 HALT PE XAMINE STACK TO FIND CAUSE 
0co 000302 -*2 sUNEXPECTED TRAP TO THIS LOCATION 
000302 000000 HALT vEXAMINE STACK TO FIND CAUSE 
000304 000306 +2 NEXPECTED TRAP TO THIS LOCATION 
009306 HALT sEXAMINE STACK TO FIND CAUSE 
000310 000312 +2 TED TRAP TO THIS LOCATION 
000312 HALT sEXAMINE STACK TO FIND CAUSE 
009314 000316 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000316 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000320 000322 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000322 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000324 000326 -*2 s;UNEXPECTEOD TRAP TO THIS LOCATION 
000326 HALT sEXAMINE STACK TO FIND CAUSE 
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sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TN THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 





sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
UNEXPECTED TR 








3; UNE ED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
s;EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 





- - 
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sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
s;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
IND CAUSE 








AUSE 
TED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE hg FIND CAUSE 





FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
s;EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
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-— 
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. SETVEC 








sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO yy A laa 





IND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
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ry 


~ 


OOWyIDUP wh 


000200 


000204 


000204 


0C0204 


i 


ee eee 











SEQ 20 
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000200 
000167 


104400 
000001 


104401 
000002 


104402 
000003 


104403 
000004 
104404 
000005 
104405 
000006 
104406 
000007 


104407 
000010 


104410 
000011 


000046 
015056 
000052 
040000 


000600 


.=200 


. TRPDEF 


TRPDEF 


TRPDEF 


TRPDEF 


TRPDEF 


TRPDEF 


TRPDEF 


TRPDEF 


TRPDEF 


sSTANDARD INTERRUPT VECTORS 
JMP START sGO TO START OF PROGRAM 


sDEFINITIONS FOR TRAP SUBROUTINE CALLS 
sPOINTERS TO SUBROUTINES CAN BE FOUND STARTING 
sAT LOCATION “TRPTAB“ 


SCOPE, t/SCOPE LOOP AND ITERATION HANDLER/ 
SCOPES TRAP +Y ;SCOPE LOOP AND ITERATION HANDLER 
=VYe 
TYPE, t/TELETYPE OUTPUT ROUTINE/ 
TYPE =TRAP+Y ;TELETYPE OUTPUT ROUTINE 
=Ye 
OCTASC,+/OCTAL TO ASCII CONVERSION/ 


ao ;OCTAL TO ASCII CONVERSION 
2Y¥ 
INSTR, t/INPUT ASCII STRING/ 
-5. amet sINPUT «ASCII STRING 
=Ye 
INSTER,*/STRING INPUT ERROR/ 
— ;STRING INPUT ERROR 
=VYe 


PARAM, t/CONVERT STRING TO OCTAL, CHECK LIMITS/ 

en sCONVERT STRING TO OCTAL, CHECK LIMITS 
z=T¢ 

SAVO5P,t/SAVE RO-RS, PC/ 

SAVOSP=TRAP+Y 

Y=Yel 

RESOS, t/RESTORE RO-RS/ 

oe sRESTORE RO-RS5 
=Y¥> 


SCOPE1,t/CHECK FOR FREEZE ON CURRENT DATA/ 


;SAVE RO-RS, PC 


ee. ;CHECK FOR FREEZE ON CURRENT DATA 
=V¥e 

CODEM1 

MOV DHSSR, DHSLR ;SET UP ADDRESS OF SILO 
INC DHSLR ;STATUS REGISTER HIGH BYTE 


CODEM1 
DHRVEC .3,4,DHSCR,.O.177776, 7, 10, . oi 


— Ee a A TE LEI LL, OLE LLL LL EOL OT EL COLT LPL LE TE LT I OA te 


SEQ 21 
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0 001000 . =1000 


sPROGRAM INITIALIZATION 

sLOCK OUT INTERRUPTS 

;SET UP PROCESSOR STACK 

;SET UP POWER FAIL VECTOR 
;CLEAR PROGRAM FLAGS AND COUNTS 
:TYPE TITLE MESSAGE 











.LIF NB <>, sDETERMINE MEMORY SIZE 
.LIF NB <>, ;SET UP TRACE TRAP RETURN 
001000 177570 SWR: . WORD 177570 ; SWITCH DHSCR ADDRESS ; 4 
001002 177570 LIGHTS: .WORD 177570 ; LIGHTS - 4 
; 4 
001004 012767 000340 176764 START: MOV #340 ,PS ;LOCK OUT INTERRUPTS 
001012 012706 020164 MOV @STACK ,SP ;SET UP PROCESSOR STACK 
001016 012702 000024 MOV #24 ,R2 ; POINT TO VECTOR AREA 3; 7 
001022 012722 016764 MOV @PFAIL ,CR2)+ ;SET UP POWER FAIL TRAP s 7 
001026 O12722 000340 MOV #340, (R2)+ ;SERVICE AT LEVEL 7 s 7 
001032 012722 015216 MOV #ERRORS, CR2)+ ;ERROR HANDLER s 7 
001036 012722 000340 MOV #340, (R2)>+ ;SERVICE AT LEVEL 7 : 7 
001042 012722 015430 MOV @TRPSRV, CR2)+ ;GENERAL HANDLER DISPATCH SERVICE ;: 7 
001046 012712 000340 MOV #340, (R2) ;sSERVICE AT LEVEL 7 ; 8 
0C1052 005067 015274 CLR STFLG sCLEAR TEST START FLAG 
001056 005067 015230 CLR PASCNT ;CLEAR PASS COUNT 
001062 005067 015226 CLR ERRCNT ;CLEAR ERROR COUNT 
001066 005067 015216 CLR ERRFLG ;CLEAR ERROR FLAG 
001072 005067 015212 CLR ERRFLG ;CLEAR LAST ERROR PC 
001076 016746 176702 MOV 4, -(SP) ; PUSH TRAP VECTOR ; 4 
001102 016746 176700 MOV 6, -(CSP) ; 4 
001106 012767 001122 176670 MOV i$, 4 ; SET UP TRAP VECTOR ; 4 
001114 005777 177660 TST @SkR ; TEST SWITCH REGISTER ADDRESS ; 4 
ceesae 000405 = BR 23 ; IF SUCCESSFUL. LEAVE IT ALONE ; 4 
: ; 4 
001122 012767 000176 177650 MOV #176, SUR ; POINT TO SOFT SWITCH DHSCR ; 4 
peed 005067 177646 re CLR LIGHTS ; © MEANS WE ARE NOT GOING 10 USE LIGHTS : 4 
: ; 5 
001134 005726 TST (SP)+ ; CLEAN UP STACK ; & 
001136 005726 TST (SP)+ ; 4 
001140 012667 176642 MOV (SP)+, 6 ; 4 
001144 012667 176634 MOV (SP)+, 4 ; 4 
001150 104401 017134 TYPE eMTITLE ;TYPE TITLE MESSAGE 
001154 005767 015170 TST INIFLG sCHECK INITIALIZATION FLAG 
-IF NB <DHRVEC> 
0Giist 001001 BNE VEC1 :IF NOT 0, CHECK SWITCHES 
— 3FOR REINITIALIZATION 
BNE BEGIN :IF NOT 0, START TEST 
-ENDC 
.1F NB <> 
SIZE: CLR RO 
MOV $23,804 ;SET UP TIME OUT RETURN 
1$ TST CRO)>+ MEMOR ; 9 
BR i$ 
2$ MOV RO ,HCORE 
SUB #2 ,HCORE ;NON EXISTANT MEMORY ; ¥ 
MOV 96 , 804 sRESTORE TRAPCATCHER 





ea. 
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001162 








DE EE EE UT OE ESE OS LT STS ET TT 
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000404 


032777 
001445 


012701 


016767 
005267 


005767 
001002 
005167 


000001 177606 


000300 
000302 
000004 


001000 


015006 015006 


015002 
015050 
015042 











SEQ 22 
.ENDC 
.IF NB <> 
TRACER: MOV $13,010 ;SET UP ILLEGAL INSTRUCTION TRAP RETURN 
SXT RO ;D0 11/40, 11/45 INSTRUCTION 
~ + + lalalaaiaaal 311/40,45 RTT RETURN FROM TRACE TRAP 
i$ MOV #RTI, TRTIRET ;1105,10,20 RTI RETURN FROM TRACE TRAP 
MOV #12,8#10 ;sRESTROE TRAPCATCHER 
come MOV #TRTRET, 8016 ;SET UP TRACE TRAP VECTOR 
IF NB <DHRVEC> ; 3 
IF B <> 
BR VEC2 
.1FF 
TST INIFLG ;IF INITIALIZE FLAG=0 
nn BEQ VEC2 ;GET VECTOR AND CSR ADDRESS 
VEC1: BIT #SWOO0, OSWR ;IF SWOO=1, GET NEW VECTOR ; 4 
BEQ BEGIN ;AND CSR 
VECe2: ; 4 
MOV #300 ,.R1 ; 4 
MOV #302 ,R2 
MOV #4,R3 
1$: MOV R2,CR1) sRESTORE TRAPCATCHER 
CLR R2) :IN FLOATING VECTOR AREA 
ADD R3,R1 
ADD R3,R2 
oo Ri , #1000 
INSTR ;INPUT ADDRESS OF DEVICE VECTOR 
MVECTOR sMESSAGE “VECTOR ADDRESS-” 
PARAM sCONVERT STRING TO OCTAL 
300 3LOW LIMIT 
770 sHIGH LIMIT s 2 
DHRVEC ;sLOCATIONS TO BE FILLED 
BYTE 3 ;sNUMBER OF LOCATIONS 
BYTE 4 ;LSB MASK 
INSTR ;INPUT ADDRESS OF DEVICE CSR 
MREGAD sMESSAGE “CONTROL REGISTER ADDRESS-* 
PARAM sCONVERT STRING TO OCTAL 
0 ;LOW LIMIT 
177776 sHIGH LIMIT 
;LOCATIONS TO BE FILLED 
QVTS =. 2FT ;NUMBER OF LOCATIONS 
BYTE 10 ;LSB MASK 
-ENDC 
-tF NB <i> 
CODEM1 | 
MOV DHSSR,DHSLR ;SET UP ADDRESS OF SILO 
cine INC DHSLR ;sSTATUS REGISTER HIGH BYTE 
TST INIFLG ;IF INITIALIZATION FLAG 
BNE BEGIN :IS CLEARED 
COM INIFLG ;SET IT 
;PROGRAM START ; 3 


sCHECK FOR PROGRAM START AT SELECTED ADDRESS 


i cicicislociamteneection 


CZ0HF -CO 








en eres eS mm re oe me Oe ee LS eo ee CR Eee eee 
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012767 


000340 
020164 
000002 


001400 
014770 


014762 
017402 
014716 


176462 BEGIN: 


177452 


~BYTE 
.BYTE 


014740 1%: 


2$: 
3$: 


#340,PS 
#STACK ,SP 
oe 


2$ 
#T1,RETRN 


SEQ 23 


;LOCK OUT INTERRUPTS 

;SET UP PROCESSOR STACK 

;IF SWO1=1 ; 4 
;GET PC FOR PROGRAM START 

;GET PC 

sMESSAGE “TEST PC” 

;CONVERT STRING TO OCTAL 


sNORMAL START, TEST 1 
;IF LOOPING, BYPASS TYPEOUT 


sTYPE “R” TC TNDICATE START 
s;START TESTING ; 3 





Re ne ee eel 
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001400 
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012767 
012767 
012767 


012767 


000002 
012777 
012703 
012767 


012777 
012777 


012777 


000000 
033503 


177777 
016356 


014620 


176370 
014710 
014676 


014672 


014620 
014706 


014600 
014576 


014574 
014564 
014562 








SEQ 24 
LINE =0 
XLINE=LINE 
BITX=1 
XBIT=BITX 
REPT 
SDATAL \LINE,\BITX 
.NLIST 
LINE =LINE+1 
BITX=BITX+BITX 
.LIST 
.ENDR 
SDATAL \LINE, \BITX 
; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE O. 
;CHARACTER LENGTH IS 8 BITS. 
;sLINE SPEED IS 9600 BAUD. 
TS \XN,10,4$,1$ 
Ti: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
toe m3 #43 ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
r <1$> 
MOV $1$,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
MOV @8IT11,.38DHSCR sMASTER CLEAR INTERFACE 
MOV #0,R3 ;SET UP LINE NUMBER 
MOV #02400 + 100000, TDATA 
;SET EXPECTED LINE NUMBER 
;AND VALID — FLAG 
MOV 
MOV 
is: MOV 
MOV 
MOV 
2s: TSTB 
BPL 
MOV 
CMP 
BEQ 3$ ; 
a . ;DATA ERROR 
3$: SCOPE1 ;CHECK FOR LOOP WITH CURRENT DATA 
;UPDATE TRANSMIT DATA 
4$: ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 


SDATA1 \LINE,\BITX 





; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 1. 
sCHARACTER LENGTH IS 8 BITS. 
;sLINE SPEED IS 9600 BAUD. 
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001542 
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012767 
012767 
012767 


012767 
000003 
012777 


012703 
012767 


012777 
012777 


012777 


012767 


000004 
012777 
0127203 
012767 


012777 
012777 


000001 
033503 


177777 
016356 
000002 
014402 


014376 
014470 


014456 


000002 
033503 


176226 
014546 
014534 


014530 


014456 
014544 


014404 
014372 


014366 
014314 


014402 


014274 
014272 





TS \XN,10,48,18 
Te: V 





MO #340 ,PS 
MOV #10, ICOUNT 
MOV #4$, ESCAPE 
.IF NB <1$> 
MOV #1$,FREEZ1 
.ENDC 
XN=XNe1 
MOV #68IT11,@DHSCR 
MOV #1,R3 ; 
MOV #1%400+100000, TDATA 
MOV #1,8DHSCR 
MOV #33503 , @DHLPR 
i$: MOV @-1,80HBC 
MOV @TDATA,@DHBA 
MOV 62 , 8DHBAR 
23: CR 
3$: 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 





SDATAL \LINE,\8ITX 


s; TRANSMIT ALL CHARACTERS ONE AT 
TER LENGTH IS 8 BITS. 








i 
sLINE SPEEDO IS 9600 BAUD. 
TS \XN,10,48,18 
T3: MOV $340 .PS 
#10, ICOUNT 
043 ESCAPE 
01%, FREEZ1 
XN=XNeo1 
MOV @BIT11,8DHSCR 
MOV $2, 3SE7 
MOV $2%400+100000, TDATA 
MOV 42 ,@DHSCR 
MOV #33503, PR 





SEQ 25 
sDISABLE ALL INTERRUPTS 
s;SET UP FOR 10 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 
;SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
BER 


SET UP LINE NUM 


;SET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 
s;EXPECTED DATA 

sSELECT LINE 1 

;SELECT 8 BITS CHARATER 


i 
; TRANSMIT 1 CHARACTER 
sADDRESS OF TRANSMIT DATA 
:START TRANSMITTER 
sWAIT FOR CHARACTER 
710 BE RECEIVED 
;GET RECEIVED CHARACTER 
sCOMPARE EXPECTED AND 
sRECEIVED DATA 
;DATA ERROR 


sCHECK FOR LOOP WITH CURRENT DATA 
sUPDATE TRANSMIT DATA 


sCHECK FOR ITERATIONS, LOOP 


A TIME ON LINE 2. 





sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP WITH DATA : 3 





MASTER CLEAR INTERFACE 
NUMBER 


UP LINE 


sSET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 
sEXPECTE 
sSELECT LINE 2 

sSELECT 8 BITS CHARATER 








CZDHF -CO 


-— 
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012777 
012777 


012767 
012767 
012767 


012767 


600005 
012777 
012703 
012767 


012777 
012777 


012777 


177777 
016356 
000004 
014240 


014234 
014326 


014314 


000003 
033503 


177777 
016356 


014152 


014270 
014260 
014256 


175722 


014126 
014116 
014114 





1$: MOV #-1,8DHBC 
MOV @TDATA,@DHBA 
MOV #4 , BDHBAR 

2$: TSTB @DHSCR 
BPL 2$ 
MOV SDHNRC ,R4 
CMP R4,TDATA 
BEQ 3$ 
HLT 0 
EMT 0 

3$: SCOPE1 
INCB TDATA 
BNE i$ 

4$: SCOPE 

LINE =LINE+1 

BITX=BITX+BITX 

SDATA1 \LINE,\BITX 


sTRANSMIT ALL CHARACTERS ONE AT 
sCHARACTER LENGTH IS 8 BITS. 
sLINE SPEED IS 9600 BAUD. 


TS \XN,10,48,1$% 
T4: 





MOV #340 ,PS 
MOV #10, ICOUNT 
MOV 04%, ESCAPE 
-IF NB <1i$> 
MOV #13, FREEZ1 
-ENDC 
XN=XNel 
MOV #681711 ,8DHSCR 
MOV #3,R3 ;SET 
MOV #32400 +100000, TDATA 
MOV #3 ,8DHSCR 
MOV #33503 , BDHLPR 
i$: MOV 
MOV 
MOV 
2s: TST8 
BPL - 
MOV 
CMP 
BEQ 
HLT 0 
EMT 0 
3$: SCOPE 
INCB TDATA 
BNE is 
4$: SCOPE 
LINE =LINE +1 





SEQ 26 


;LENGTH, 9600 BAUD SPEED 
;FOR LINE 2 

;sTRANSMIT 1 CHARACTER 
;ADDRESS OF TRANSMIT DATA 
;START TRANSMITTER 

;sWAIT FOR CHARACTER 

;1T0 BE RECEIVED 

;GET RECEIVED CHARACTER 
sCOMPARE EXPECTED AND 
sRECEIVED DATA 

;sDATA ERROR 


sCHECK FOR LOOP WITH CURRENT DATA 
sUPDATE TRANSMIT DATA 


sCHECK FOR ITERATIONS, LOOP 
A TIME ON LINE 3. 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
NUMBER 


UP LINE 


;sSET EXPECTED LINE NUMBER 

sAND VALID DATA FLAG 

sEXPECTED DATA 

sSELECT LINE 3 

sSELECT 8 BITS CHARATER 
BAUD 








sCHECK FOR LOOP WITH CURRENT DATA 
;UPDATE TRANSMIT DATA 


sCHECK FOR ITERATIONS, LOOP 











SEQ 27 





ES Se eee eta 
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000020 BITX=«BITX+-BITX 
092210 SDATAL \LINE,\BITX 
; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 4G. 
;CHARACTER LENGTH IS 8 BITS. 
;LINE SPEED IS 9600 BAUD. 
002210 TS \XN,10,48,1$ 
002210 012767 000340 175560 T5: MOV 340,PS : ;sDISABLE ALL INTERRUPTS 
002216 012767 000010 014100 MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
002224 012767 002350 014066 — mr #4$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
= < » 
002232 012767 002274 014062 om MOV #1$,FREEZI1 ;SET UP TO LOOP WITH DATA 3 
000006 XN=XNeo1 
002240 012777 004000 014010 MOV #6IT11,3DHSCR sMASTER CLEAR INTERFACE 
002246 012703 000004 MOV #4 ,.R3 ;SET UP LINE NUMBER 
002252 012767 102000 014076 MOV #42400+100000, TDATA 
;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
sEXPECTED DATA 
002260 012777 900004 013770 MOV #4 ,8DHSCR ;SELECT LINE 4 
002266 012777 033503 013766 MOV #33503 ,dDHLPR ;SELECT 8 BITS CHARATER 
:sLENGTH, 9600 BAUD SPEED 
sFOR LINE 4 
002274 012777 177777 +O13764 is: MOV #-1,3D0HBC ;TRANSMIT 1 CHARACTER 
002302 012777 016356 013754 MOV @TDATA,&DHBA ;sADDRESS OF TRANSMIT DATA 
002310 012777 600020 013752 MOV $20, ADHBAR ;START TRANSMITTER 
002316 105777 013734 2s: TST8 @DHSCR ;WAIT FOR CHARACTER 
002322 100375 BPL 2$ ;70 BE RECEIVED 
002324 017704 013730 MOV @DHNRC ,R4 ;GET RECEIVED CHARACTER 
002330 020467 014022 CMP R4,TDATA ;sCOMPARE EXPECTED AND 
002334 001401 BEQ 3$ sRECEIVED DATA 
002336 HLT 0 ;DATA ERROR 
002236 104000 EMT 0 
002340 1064410 3$: SCOPE1 ;CHECK FOR LOOP WITH CURRENT DATA 
002342 105267 014010 TDOATA sUPDATE TRANSMIT DATA 
002346 001352 BNE is 
002350 104400 4$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
000005 LINE =LINE+1 
000040 BITX=BITX+BITX 
002352 SDATAL \LINE, \BITX 
; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 5. 
;CHARACTER LENGTH IS 8 BITS. 
sLINE SPEED IS 9600 BAUD. 
002352 TS \XN,10,4$,1$ 
002352 012767 000340 175416 : MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
002360 012767 000010 013736 MOV #10, ICOUNT :SET UP FOR 10 ITERATIONS 
002366 012767 002512 013724 a re #4$ ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
4 < > 
002374 012767 002436 013720 jan MOV #1$,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000007 XN=XNe 
002402 012777 004000 013646 MOV #BIT11,3DHSCR sMASTER CLEAR INTERFACE 
902410 012703 000005 MOV #5,R3 ;SET UP LINE NUMBER 


CZ2DHF -CO 


002414 


002422 
002430 


a 





LE EEE ET, I NT NE TTT EN TET 
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012767 102400 013734 


012777 
012777 


012777 
012777 


012767 
012767 
012767 


012767 


000010 
012777 
012703 
012767 


012777 
012777 


012777 
012777 


000005 
033503 


177777 
016356 
000040 
013572 


013566 
013660 


013646 


000006 
033503 


177777 
016356 


013424 
013516 


013626 
013624 


013622 
013612 
013610 


175254 
013574 
013562 


013556 


013504 
013572 


013464 
013462 


013460 
013450 
013446 


MOV #52400+100000, TDATA 
MOV #5 ,,8DHSCR 
MOV #33503 ,@DHLPR 
1$: MOV #-1,80HBC 
MOV &TDATA,@D0HBA 
MOV $40, 8DHBAR 
2$: TST8 8DHSCR 
BPL 2$ 
MOV QDHNRC ,R4 
CMP R4,TDATA 
BEQ 3$ 
HLT 0 
EMT 0 
3$: SCOPE1 
INCB TDATA 
BNE i$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SDATAL \LINE,\BITX 


TS \XN,10,4$,1$ 


-IF NB 
-ENDC 


XN=XNel1 


23: 


sTRANSMIT ALL CHARACTERS ONE AT 
sCHARACTER LENGTH IS 8 BITS. 
sLINE SPEED IS 9600 BAUD. 


#340 .PS 

#10, ICOUNT 
643, ESCAPE 
#1$,FREEZ1 
#61T11,8DHSCR 
#6,R3 


° ;SET UP 
#64400+100000, TDATA 


6 , @DHSCR 
#33503 ,ADHLPR 





#-1,3D0HBC 
¢TDATA,@DHBA 
#100, @DHBAR 
— 





SDHNRC ,R4 
R4,TDATA 
3$ 

0 


;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
;EXPECTED DATA 

;SELECT LINE 5 

;sSELECT 8 BITS CHARATER 
;LENGTH, 9600 BAUD SPEED 
sFOR LINE 5 

;TRANSMIT 1 CHARACTER 
;ADDRESS OF TRANSMIT DATA 


;START 


TRANSMITTER 


s;WAIT FOR CHARACTER 


370 BE 


RECEIVED 


;GET RECEIVED CHARACTER 
;COMPARE EXPECTED AND 
sRECEIVED DATA 

;DATA ERROR 


sCHECK FOR LOOP WITH CURRENT DATA 


;UPDATE TRANSMIT DATA 


;CHECK FOR ITERATIONS, LOOP 


A TIME 


ON LINE 6. 


sDISABLE ALL INTERRUPTS 


;SET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 





s;SET UP TO LOOP WITH DATA 


sMASTER CLEAR INTERFACE 
NUMBER 


LINE 
:SET E 


XPECTED LINE NUMBER 


sAND VALID DATA FLAG 


;EXPEC 
;SELEC 
;SELEC 


; TRANS 
;ADDRE 
;START 


;WAIT 
:T0 BE 


TED DATA 
T LINE 6 
T 8 BITS CHARATER 


MIT 1 CHARACTER 

SS OF TRANSMIT DATA 
TRANSMITTER 

FOR CHARACTER 
RECEIVE 


D 
:;GET RECEIVED CHARACTER 
;COMPARE EXPECTED AND 
sRECEIVED DATA 


7DATA 


CRROR 





SEQ 28 


ee 
Ww 


-— 
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104000 
104410 
105267 
001352 
104400 
000007 
000200 


012767 
012767 
012767 


012767 


000011 
012777 
012705 
012767 


012777 
012777 


012777 
012777 
012777 


012767 
612767 
012767 


013504 


000340 
000010 
003016 


002742 


004000 
000007 
103400 


000007 
033503 


177777 
016356 
000200 
013266 


013262 
013354 


013342 


000340 
000010 
003160 


175112 
013432 
013420 


013414 


013342 
013430 


013322 
013320 


013316 
013306 
013304 


174750 
013270 
013256 








EMT 0 
3$: SCOPE1 
INCB TDATA 
BNE 1$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SDATAL \LINE, \BITX 
; TRANSMIT ALL CHARACTERS ONE AT 
;CHARACTER LENGTH IS 8 BITS. 
;LINE SPEED IS 9600 BAUD. 
TS \XN,10,48,1$ 
T10: MOV #340 ,PS 
MOV #10, ICOUNT 
MOV #4$, ESCAPE 
-IF NB <1$> 
MOV #1$,FREEZ1 
-ENDC 
XN=XNel 
MOV #6IT11,@DHSCR 
MOV #7,R3 ;SET UP 
MOV #72#400+100000, TDATA 
MOV $7, 8DHSCR 
MOV #33503 , 8SDHLPR 
i$: MOV #-1,3DHBC 
MOV #TDATA.&@DHBA 
MOV #200, 
2s: TSTB SDHSCR 
BPL es 
MOV ~R4 
CMP R4,TDATA 
BEQ 3$ 
HLT 0 
EMT 0 
3$: SCOPE1 
4$: 
LINE =LINE+1 
BITX=BITX+BITX 
SDATAL \LINE,\BITX 


s TRANSMIT ALL CHARACTERS ONE AT 
CHARACTER LENGTH IS 8 BITS. 
sLINE SPEED IS 9600 BAUD. 


TS \XN,10,4$,18 


Til: MOV #340 ,PS 
MOV #10, ICOUNT 
MOV #4$ , ESCAPE 





SEQ 29 


sCHECK FOR LOOP WITH CURKENT DATA 
sUPDATE TRANSMIT DATA 


sCHECK FOR ITERATIONS, LOOP 
A TIME ON LINE 7. 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
LINE NUMBER 


;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
sEXPECTED DATA 

;SELECT LINE 7 

;SELECT 8 BITS CHARATER 
sLENGTH, 9600 BAUD SPEED 
sFOR LINE 7 

;TRANSMIT 1 CHARACTER 
;ADDRESS OF TRANSMIT DATA 
;START TRANSMITTER 

;sWAIT FOR CHARACTER 

;TO0 BE RECEIVED 

;GET RECEIVED CHARACTER 
;COMPARE EXPECTED AND 
sRECEIVED DATA 

;DATA ERROR 


;CHECK FOR LOOP WITH CURRENT DATA 
sUPDATE TRANSMIT DATA 


sCHECK FOR ITERATIONS, LOOP 
A TIME ON LINE 10. 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 





MACRO V04.00 


012767 


0006012 
012777 
012703 
012767 


012777 
012777 


012777 
012777 
012777 
105777 
100375 


012767 
012767 
012767 


012767 


000013 
012777 
012703 
012767 


012777 
012777 


012777 
012777 
012777 


003104 


004000 
000010 
104000 


000010 
033503 


177777 
016356 
000400 
013124 


013120 
013212 


013200 


000340 
000010 
003322 


003246 


004000 
000011 
104400 


000011 
033503 


177777 
016356 
001000 


ican 


013252 


013200 
013266 


013160 
013156 


013154 
013144 
013142 


174606 
013126 
013114 


013110 
013036 
013124 


013016 
013014 


013012 
013002 
013000 
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-IF NB <1$> 
MOV #1$,FREEZ1 
.ENDC 
XN=XNe1 
MOV #BIT11,@8D0HSCR 
MOV #10,R ;SE 
MOV #104400+100000, TDATA 
MOV #10,8DHSCR 
MOV #33503 ,8DHLPR 
1$: MOV #-1,9DHBC 
MOV #TDATA,@DHBA 
MOV #400 , ADHBAR 
2$: TSTB 8DHSCR 
BPL 2$ 
MOV SDHNRC ,R4 
CMP R4,TDATA 
BEQ 3$ 
HLT 0 
EMT 0 
3$: SCOPE1 
INCB TDATA 
BNE i$ 
4$: SCOPE 
LINE=LT E+ 
BITX-bITX+BITX 
SDATAi \LINE,\BITX 
; TRANSMIT ALL CHARACTERS ONE AT 
;CHARACTER LENGTH IS 8 BITS. 
sLINE SPEED IS 9600 BAUD. 
TS \XN,10,4$,1$ 
Ti2: MOV $340 ,PS 
MOV #10, ICOUNT 
MOV $43 ,ESCAPE 
IF NB <1$> 
MOV $1$,FREEZ1 
-ENDC 
XN=XNel 
MOV #61IT11,@0HSCR 
MOV #11,R3 sSET UP 
MOV #114400+100000, TDATA 
MOV #11,8DHSCR 
MOV #33503 , BDHLPR 
1$: MOV #-1,a2DHBC 
MOV #TDATA,@DHBA 
MOV #1000, 8DHBAR 


;SET UP TO LCOP WITH DATA ; 3 


;MASTER — INTERF ACE 


T UP LINE NUMBE 


;SET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 
sEXPECTED DATA 

;SELECT LINE 10 

;SELECT 8 BITS CHARATER 
sLENGTH, 9600 BAUD SPEED 
sFOR LINE 10 

sTRANSMIT 1 CHARACTER 
sADDRESS OF TRANSMIT DATA 
s;START TRANSMITTER 

sWAIT FOR CHARACTER 

;T0 BE RECEIVED 

;sGET RECEIVED CHARACTER 
sCOMPARE EXPECTED AND 
sRECEIVED DATA 

sDATA ERROR 


sCHECK FOR LOOP WITH CURRENT DATA 
sUPDATE TRANSMIT DATA 


sCHECK FOR ITERATIONS, LOOP 
A TIME ON LINE 11. 


s;DISABLE ALL INTERRUPTS 
;SET UP FOR 10 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
LINE NUMBER 


sSET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 
sEXPECTED DATA 

sSELECT LINE 11 

sSELECT 8 BITS CHARATER 


;TRANSMIT 1 CHARACTER 
sADDRESS OF TRANSMIT DATA 
s;START TRANSMITTER 





CZDHF -C9 
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105777 
100375 
017704 


012767 
012767 
012767 


012767 


000014 
012777 
012703 
012767 


012777 
012777 


012777 
012777 
012777 
105777 
100375 
017704 
020467 
001401 


012762 


012756 
013050 


013036 


000340 
000010 
003464 


003410 


004000 
000012 
105000 


000012 
033503 


177777 
016356 


012674 


174444 
012764 
012752 


012746 


012674 
012762 


2$: TSTB QDHSCR 
BPL 2$ 
MOV @DHNRC ,R4 
CMP R4,TDATA 
BEQ 3$ 
HLT 0 
EMT 
3$: SCOPE1L 
INCB TDATA 
BNE 1$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SDATAL \LINE,\BITX 
; TRANSMIT ALL CHARACTERS ONE AT 
:;CHARACTER LENGTH IS 8 BITS. 
;LINE SPEED IS 9600 BAUD. 
TS \XN,10,4$,1$ 
Ti3: MOV #340,PS 
MOV #10, ICOUNT 
MOV 64%, ESCAPE 
.IF NB <1$> 
MOV #1$,FREEZ1 
-ENDC 
XN=XNel 
MOV BIT11.@DHSCR 
MOV 712,R3 sSET UP 
MOV #122400+100000, TDATA 
MOV #12,@DHSCR 
MOV #33503 , SDHLPR 
i$: MOV #-1,8D0HBC 
MOV #TDOATA,@DHBA 
MOV #2000 , SDHBAR 
2s: TSTB @DHSCR 
BPL 2¢ 
MOV QDHNRC ,R4 
CMP R4,TDATA 
BEQ 3$ 
HLT 0 
EMT 0 
3$: SCOPE1 
TDATA 
BNE 3 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 


SDATA1 \LINE,\BITX 


Ce Te ES SR eS Se sy SSNS o> wenn nnn ~. 


SEQ 31 


;WAIT FOR CHARACTER 

;T0 BE RECEIVED 

sGET RECEIVED CHARACTER 
sCOMPARE EXPECTED AND 
sRECEIVED DATA 

;DATA ERROR 


sCHECK FOR LOOP WITH CURRENT DATA 
sUPDATE TRANSMIT DATA 


sCHECK FOR ITERATIONS, LOOP 
A TIME ON LINE i2. 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


«SET UP TO LOOP WITH DATA 


sMASTER CLEAR INTERFACE 
LINE NUMBER 


;SET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 
sEXPECTED DATA 

sSELECT LINE 12 

sSELECT 8 BITS CHARATER 

; ogg Bg ry BAUD SPEED 


sCOMPARE EXPECTED AND 
sRECEIVED DATA 
s;DATA ERROR 


s;CHECK FOR LOOP WITH CURRENT DATA 
sUPDATE TRANSMIT DATA 


sCHECK FOR ITERATIONS, LOOP 


; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 13. 


sCHARACTER LENGTH IS 8 BITS. 


IEG TR eee 


CZDHF -CO 
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012767 
012767 
012767 


012767 


000015 
012777 
012703 
012767 


012777 
012777 


012777 
012777 


012767 
012767 
012767 


012767 
000016 
012777 


012703 
012767 


012777 


000013 
033503 


177777 
016356 
004000 
012456 


012452 
012544 


012532 


000014 


174302 
012622 
012610 


012604 


012532 
012620 


012512 
012510 


012506 
012476 
012474 


174140 
012460 
012446 


012442 


012370 
012456 


012350 








;LINE SPEED IS 9600 BAUD. 
TS \XN,10,4$,1$ 
T14: M 


OV #340,PS 
MOV #10, ICOUNT 
MOV #4$,ESCAPE 
.IF NB <1$> 
MOV #1$,FREEZ1 
.ENDC 
XN=XNe1 
MOV #B8IT11,@8D0HSCR 
MOV #13,R3 
MOV #13%400+ 100000, TDATA 
MOV #13, 8DHSCR 
MOV #33503, @DHLPR 
i$ MOV #-1,8DHBC 
MOV #TDATA, @DHSA 
MOV #4000, SDHBAR 
2s: TSTB SDHSCR 
BPL 2$ 
MOV SDHNRC .R4 
CMP R4.TDATA 
BEQ 3$ 
HLT 0 
EMT 0 
3$: SCOPE1 
INCB. TDATA 
BNE i$ 
4$: SCOPE 
LINE =LINE +1 
BITX=BITX+B1ITX 
SDATAL \LINE, \BITX 


: TRANSMIT ALL CHARACTERS ONE AT 
sCHARACTER LENGTH IS 8 BITS. 
sLINE SPEED IS 9600 BAUD. 


TS \XN,10,4$,1$ 





MOV #10, ICOUNT 
MOV $4$ ,ESCAPE 
-IF NB <i$> 3 
MOV #1$,FREEZ1 
-ENDC 
XN=XNel 
MOV 8B1IT11,9DHSCR 
MOV #14,R3 ;SET UP 
MOV #144400+100000, TDATA 
MOV #14, 8DHSCR 


SEQ 32 
sDISABLE ALL INTERRUPTS 
;SET UP FOR 10 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 
sSET UP TO LOOP WITH DATA ; 3 


sMASTER — INTERFACE 


;SET UP LINE NUMBER 


;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
;EXPECTED DATA 

;SELECT LINE 13 

;sSELECT 8 BITS CHARATER 
sLENGTH, 9600 BAUD SPEED 
;FOR LINE 13 

;TRANSMIT 1 CHARACTER 
;ADDRESS OF TRANSMIT DATA 
;START TRANSMITTER 

;sWAIT FOR CHARACTER 

:T0 BE RECEIVED 

;GET RECEIVED CHARACTER 
;COMPARE EXPECTED AND 
sRECEIVED DATA 

;sDATA ERROR 


sCHECK FOR LOOP WITH CURRENT DATA 
sUPDATE TRANSMIT DATA 


sCHECK FOR ITERATIONS, LOOP 


A TIME ON LINE 14. 


sDISABLE ALL INTERRUPTS 
3;SET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 





we 
WwW 


sMASTER CLEAR INTERFACE 
LINE NUMBER 


:;SET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 
sEXPECTED DATA 

;SELECT LINE 14 





SEQ 33 
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003706 012777 033503 012346 MOV #33503 ,8DHLPR ;SELECT 8 BITS CHARATER 
;LENGTH, 9600 BAUD SPEED 
sFOR LINE 14 
003714 012777 177777 012344 i$: MOV #-1,8DHBC ;TRANSMIT 1 CHARACTER 
003722 012777 016356 012334 MOV #TDATA,@DHBA ;ADDRESS OF TRANSMIT DATA 
003730 012777 010000 012332 MOV #10000 , @DHBAR ;START TRANSMITTER 
003736 105777 012314 2$: TSTB @DHSCR ;WAIT FOR CHARACTER 
003742 100375 BPL 2$ ;7T0 BE RECEIVED 
002744 017704 012310 MOV Q@DHNRC , R4 ;GET RECEIVED CHARACTER 
003750 020467 012402 CMP R4,TDATA ;COMPARE EXPECTED AND 
003754 001401 BEQ 3$ ;sRECEIVED DATA 
003756 HLT 0 ;DATA ERROR 
003756 104000 EMT 0 
003760 104410 3$;: SCOPE1 ;CHECK FOR LOOP WITH CURRENT DATA 
003762 105267 012370 INCB TDATA ;UPDATE TRANSMIT DATA 
003766 001352 BNE i$ 
003770 104400 4$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
000015 LINE=LINE+1 
020000 BITX=BITX+BITX 
003772 SDATAL \LINE,\BITX 
; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 15. 
;CHARACTER LENGTH IS 8 BITS. 
;LINE SPEED IS 9600 BAUD. 
003772 TS \XN,10,4$,1$ 
003772 012767 000340 173776 T16: MOV #340 ,.PS ;DISABLE ALL INTERRUPTS 
004000 012767 000010 012316 MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
004006 012767 004132 012304 —_— Hy #4%$ ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
- < > 
004014 012757 004056 012300 ee MOV #1$,FREEZ1 :SET UP TO LOOP WITH DATA 3; 3 
000017 XN=XNel 
004022 012777 004000 012226 MOV B81IT11,3DHSCR sMASTER CLEAR INTERFACE 
004030 012703 000015 MOV #15,R3 ;SET UP LINE NUMBER 
004034 012767 106400 012314 MOV #152400+100000, TDATA 
:SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
sEXPECTED DATA 
004042 012777 000015 012206 MOV $15, @DHSCR sSELECT LINE 15 
004050 012777 033503 012204 MOV #33503 ,.8DHLPR sSELECT 8 BITS CHARATER 
;LENGTH, 9600 BAUD SPEED 
;FOR LINE 15 
004056 012777 177777 012202 i$: MOV #-1, 8DHBC ;TRANSMIT i CHARACTER 
004064 012777 016356 012172 MOV STOATA,@DHBA OF TRANSMIT DATA 
004072 012777 020000 012170 MOV #20000 , BDHBAR ;START TRANSMITTER 
004100 105777 012152 2s: TSTB QDHSCR ;WAIT FOR CHARACTER 
004104 100375 BPL 2$ ;T0 BE VED 
004106 017704 012146 MOV SDHNRC ,R4 :GET RECEIVED CHARACTER 
004112 020467 012240 CMP R4,TDATA ;sCOMPARE EXPECTED AND 
004116 001401 BEQ 3$ ;RECEIVED DATA 
004120 HLT 0 ;DATA ERROR 
004120 104000 EMT 
004122 104410 3$: SCOPE1 ;CHECK FOR LOOP WITH CURRENT DATA 
004124 105267 012226 INCB TDATA ;sUPDATE TRANSMIT DATA 
004130 001352 BNE i$ 
004132 104400 4$: SCOPE ;CHECK FOR ITERATIONS, LOOP 


004134 
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000016 
0£0000 


012767 
012767 
012767 


012767 
000020 
012777 
012703 
012767 


012777 
012777 


012777 
012777 


012767 
012767 
012767 


012767 


000021 
012777 


000340 
000010 
004274 
004220 
004000 


000016 
107000 


000016 


033503 


177777 


012064 


173634 
012154 
012142 


912136 


012064 
012152 


012044 
012042 


012040 
012030 
012026 


173472 
012012 
012000 


011774 


011722 


LINE =LINE+1 
BITX=BITX+BITX 


SDATAL 


TS \XN,10,4$,1$ 
Ti?: 


\LINE, \BITX 


SEQ 34 


; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 16. 


;CHARACTER LENGTH IS 8 BITS. 
sLINE SPEED IS 9600 BAUD. 








MOV #340 ,PS 
MOV #10, ICOUNT 
MOV #4$,ESCAPE 
-IF NB <i$> 
MOV #1$,FREEZ1 
.ENDC 
XN=XNe1 
MOV #BIT11,8DHSCR 
MOV #16,R3 ;SE 
MOV #16*400+100000, TDATA 
MOV #16, @DHSCR 
MOV #33503 , SDHLPR 
is: MOV @-1,8DHBC 
MOV #TDATA,@DHBA 
MOV #40000 , ADHBAR 
2$: TST8 SDHSCR 
BPL 2$ 
MOV SDHNRC ,R4 
CMP R4,TDATA 
BEQ 3$ 
at 0 
3$: SCOPE1 
TDATA 
BNE i$ 
4$; SCOPE 
LINE =LINE +1 
BITX=BITX+BITX 
SDATAL \LINE,\BITX 
; TRANSMIT ALL CHARACTERS ONE AT 
;CHARACTER LENGTH IS 8 BITS. 
sLINE SPEED IS 9600 BAUD. 
TS \XN,10,48,1$ 
T20: MOV $340 ,PS 
MOV #10, ICOUNT 
MOV #4$ ,ESCAPE 
-LF NB <1$> 
MOV $1$,FREEZ1 
.ENDC 
XN=XNo1 
#81IT11,@D0HSCR 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 10 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 


T UP LINE NUMBER 


;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
;EXPECTED DATA 

;sSELECT LINE 16 

;SELECT 8 BITS CHARATER 
;sLENGTH, 9600 BAUD SPEED 
;FOR LINE 16 

; TRANSMIT 1 CHARACTER 
sADDRESS OF TRANSMIT DATA 
sSTART TRANSMITTER 

;sWAIT FOR CHARACTER 

;T0 BE RECEIVED 

:GET RECEIVED CHARACTER 
;COMPARE EXPECTED AND 
sRECEIVED DATA 

;DATA ERROR 


sCHECK FOR LOOP WITH CURRENT DATA 
sUPDATE TRANSMIT DATA 


;CHECK FOR ITERATIONS. LOOP 


A TIME ON LINE 17. 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
s;SET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 


oe 
ws 


sMASTER CLEAR INTERFACE 


’ ‘ BREE LTR INE DOES I IE SIRE LINE LE TP 





CZDHF -CO 


004334 
004340 


004346 
004354 
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012703 
012767 


012777 
012777 


012777 
012777 
012777 
105777 
100375 
017704 
020467 
001401 


104000 


012767 
012767 
612767 


012767 


000022 
012777 
012702 
012705 


000017 
107400 


000017 
033503 


177777 
016356 
100000 
011646 


011642 
011734 


011722 


012010 


011702 
011700 


011676 
011666 
011664 


173330 
011650 
011636 


011632 


011560 





SEQ 3 
12:59:01 PAGE 19-11 = | 
MOV #17,R3 ;SET UP LINE NUMBER 
MOV #17%400+100000, TDATA 
;SET EXPECTED LINE NUMBES 
;AND VALID DATA FLAG 
;EXPECTED DATA 
MOV #17,9DHSCR ;SELECT LINE 17 
MOV #33503 ,3DHLPR ;SELECT 8 BITS CHARATER ‘ 
;sLENGTH, 9600 BAUD SPEED 
;FOR LINE 17 
1$: MOV #-1,9DHBC ;TRANSMIT 1 CHARACTER 
MOV #TDATA,@DHBA ;ADDRESS OF TRANSMIT DATA 
MOV #100000, SDHBAR ;START TRANSMITTER 
2$: TSTB Q@DHSCR ;sWAIT FOR CHARACTER 
BPL 2$ ;10 BE RECEIVED 
MOV QDHNRC ,R4 sGET RECEIVED CHARACTER 
CMP R4,TDATA ;COMPARE EXPECTED AND 
BEQ 3$ ;sRECEIVED DATA 
HLT 0 ;DATA ERROR 
EMT 0 
3$: SCOPE1 ;CHECK FOR LOOP WITH CURRENT DATA 
a wai ;UPDATE TRANSMIT DATA 
4$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE+i 
BITX=BITX+BITX 
LINE =0 
XLINE =LINE 
BITX=1 
XBIT=BITX 
.REPT 20 
SDATA2 \LINE, \BITX 
-NLIST 
LINE =LINE+1 
BITX=BITX+BITX 
-LIST 
-ENDR 
SDATA2 \LINE,\BITX 
;SINGLE — DATA TEST 
; TRANSMIT A BLOCK OF 400  apaase CHARACTERS ON LINE 0 
;CHARATER LENGTH IS 8 
sLINE SPEED WILL START ar 50 BAUD AND BE INCREMENTED 
:T0 9600 BAUD. 
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
;AT EACH SPEED 
TS \XN,1,4$,1$ 
T21: MOV #340,P5S ;DISABLE ALL INTERRUPTS 
MOV #1, ICOUNT ;SET UP FOR 1 ITERATIONS 
= = $4$ ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<1$> 
MOV $13,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XN+1 
MOV #6IT11,90HSCR :MASTER CLEAR INTERFACE 
MOV ¢1,R2 :FIRST SPEED CODE 
MOV #0,R5 ;sLINE O WILL BE TESTED 


a 


CZDHF -CO 


004506 


004514 
004520 


004524 
004530 


004534 
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012767 100000 011644 


012700 
012701 


010577 
010177 


012777 
012777 


012777 
105777 


012767 
012767 
012767 


012767 


012767 


000015 
002103 


011526 
011526 


016364 
177400 


000001 
011474 


011470 
011564 


011466 


000001 
011540 


002100 


011522 
011516 
011512 


011454 


173132 
011452 
011440 


011434 


011362 


011446 


MOV #0%400+100000,RDATA 
MOV #$15,R0 
MOV #2103,R1 
1$: MOV RS ,@DHSCR 
MOV R1,@DHLPR 
MOV #TBUF , 3DHBA 
MOV #-400, 8DHBC 
MOV #1, 2DHBAR 
2$: TSTB @DHSCR 
BPL 2$ 
MOV QDHNRC ,R3 
CMP R3,RDATA 
BEQ 3$ 
CLR SDHBAR 
HLT 1 
EMT 
SCOPE1 
MOV #1 ,3DHBAR 
3$: INCB RDATA 
BNE 2$ 
ADD #2100,R1i 
INC R2 
DEC RO 
BNE i$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SDATA2 \LINE,\BITX 


;SINGLE LINE DATA TEST 
A BLOCK 


; TRANSMIT 


sCHARATER LENGTH IS 8 BIT 
sLINE ye WILL START AT SO BAUD AND BE INCREMENTED 


SEQ 36 


;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
;sEXPECTED DATA 

313 SPEEDS WILL BE TESTED 
;FIRST SPECD =50 BAUD, 

;8 BITS PER CHARACTER 
;sSELECT LINE 0 

;SET LINE SPEED AND 
;CHARACTER LENGTH 
;ADDRESS OF TRANSMITTER 
;sDATA BUFFER 

3400 COCTAL) BYTES 

;sWILL BE TRANSMITTED 
;START TRANSMITTER 

;sWAIT FOR DATA TO BE RECEIVED 


sGET RECEIVED DATA 
;COMPER EXPECTED AND RECEIVED DATA 


sSTOP TRANSMITTER 
;DATA ERROR 


sCHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sUPDATE LINE SPEED 
sUPDATE SPEED CODE 


OF 400 COCTAL) CHARACTERS ON LINE 1 





;T0 9600 BAUD. 
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
;AT EACH SPEED 
TS \XN,1,48,1$ 
T2e2: MOV #340 ,PS :DISABLE ALL INTERRUPTS 
MOV 61, ICOUNT ;SET UP FOR 1 ITERATIONS 
on at 043 ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
: <1$> 
MOV | #1%,FREEZI ;SET UP TO LOOP WITH DATA 
.ENDC 
XN=XNel 
MOV #681T11,8DHSCR sMASTER CLEAR INTERFACE 
MOV #1 ,R2 ;FIRST SPEED CODE 
MOV #1,R5 ;LINE 1 WILL BE TESTED 
MOV $14400+100000,RDATA 


sSET EXPECTED LINE NUMBER 


RES) TR 2 i Nea ee 





; 3 


on 


CZDHF -CO 


-— 


004712 
004716 


004722 
004726 


004732 


a | 
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012700 
012701 


01057? 
010177 


012777 
012777 


012777 
105777 
100375 
017703 


012767 
012767 
012767 


012767 


000024 
012777 
012702 
912705 
012767 


000015 
002103 


011330 
011330 


016364 
177400 


000002 
011276 


011272 
011366 


011270 


000002 
011342 
002100 





011324 
011320 
011314 


011256 


172734 
011254 
011242 


011236 


011164 


011250 


#15,R0 





SEQ 37 


;AND VALIO DATA FLAG 
;EXPECTED DATA 

313 SPEEDS WILL BE TESTED 
;FIRST SPEED =50 BAUD, 

;8 BITS PER CHARACTER 
;SELECT LINE 1 

;SET LINE SPEED AND 
;CHARACTER LENGTH 
;ADDRESS OF TRANSMITTER 
;DATA BUFFER 

7400 COCTAL) BYTES 

;sWILL BE TRANSMITTED 
;START TRANSMITTER 

;WAIT FOR DATA 10 BE RECEIVED 


;GET RECEIVED DATA 
sCOMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


;CHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sUPDATE LINE SPEED 
sUPDATE SPEED CODE 


T A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 2 


S 
sLINE SPEED WILL START AT SO BAUD AND BE INCREMENTED 
3A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 





MOV #2103,R1 
1$: MOV RS ,@DHSCR 
MOV Ri ,8DHLPR 
MOV #TBUF , SOHBA 
MOV #-400, ADHBC 
MOV #2 , 8DHBAR 
2s: TSTB 8DHSCR 
BPL 2$ 
MOV QDHNRC ,R3 
CMP R3,RDATA 
BEQ 3$ 
CLR SOHBAR 
HLT 1 
EMT 
SCOPE1 
MOV #2 ,8DHBAR 
3$: INCB RDATA 
BNE 2$ 
ADD $2100, R1 
INC Re 
DEC RO 
is 
43: 
LINE =LINE+i 
BITX=BITX+BITX 
SDATA2 \LINE, \BITX 
;SINGLE LINE DATA TEST 
; TRANSMI 
;CHARATER LENGTH IS 8 BIT 
:T0 9600 BAUD. 
3AT EACH SPEED 
TS \XN,1,48,1$ 
MOV #1, ICOUNT 
MOV #43 , ESCAPE 
IF NB <i$> ; 
MOV $13, FREEZ1 
.ENDC 
XN=XNel1 
MOV @BIT11,9DHSCR 
MOV #1 .R2 
MOV #2,R5 
MOV 924400 +100000, RDATA 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 1 ITERATIONS 
3;SET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
sFIRST SPEED CODE 


;sLINE 2 WILL BE TESTED 


sSET EXPECTEO LINE NUMBER 
sAND VALID DATA FLAG 
sEXPECTED DATA 


~_ 


CZDHF -CO 


005110 
005114 


005120 
005124 


005306 
005312 








ASSO OE ee SEE RE, RS + ee et rts CS Cr EE oe TS ene 
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012700 
012701 


010577 
010177 


012777 
012777 


012777 
105777 


012767 
012767 
012767 


012767 


000025 
012777 
912702 
012705 
012767 


012700 
012701 


000015 
002103 


011132 
011132 


016364 
177400 


000004 
011100 


011074 
011170 


011072 


000004 
011144 


002100 


011126 
011122 
011116 


011060 


172536 
011056 
011044 


011040 


010766 


011052 


2$: 


3$: 


4$: 


MOV 
MOV 


MOV 
MOV 


BNE 
SCOPE 


LINE =LINE+1 


BITX=BITX+BITX 


#15,R0 
#2103,R1 


RS .8DHSCR 
R1,30HLPR 


¢TBUF , ADHBA 
#-400, 8DHBC 


#4, 8OHBAR 
SOHSCR 

2$ 
QDHNRC RS 
— 


SDATA2 \LINE,\BITX 
; SINGLE Ee DATA TEST 


3; TRANSMIT 








SEQ 38 


513 SPEEDS WILL BE TESTED 
sFIRST SPEED =50 BAUD, 

58 BITS PER CHARACTER 
;SELECT LINE 2 

;SET LINE SPEED AND 
sCHARACTER LENGTH 
sADDRESS OF TRANSMITTER 
sDATA BUFFER 

5400 COCTAL) BYTES 

;sWILL BE TRANSMITTED 
s;START TRANSMITTER 

sWAIT FOR DATA TO BE RECEIVED 


;GET RECEIVED DATA 
sCOMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
sDATA ERROR 


;CHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sUPDATE LINE SPEED 
sUPDATE SPEED CODE 


A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 3 
sCHARATER LENGTH IS 8 BITS 


sLINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED 











;T0 9600 BAUD. 
sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
;AT EACH SPEED 
TS \XN,1,48,18 
T24: MOV 0340 .PS sDISABLE ALL INTERRUPTS 
MOV » LCOUNT ;SET UP FOR 1 ITERATIONS 
— a4 04% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ <1$> | 
or MOV $1$,FREEZi ;SET UP TO LOOP WITH DATA 3; 3 
XN=XNeol 
MOV #68IT11,80HSCR sMASTER CLEAR INTERFACE 
MOV $1 ,R2 sFIRST SPEED CODE 
MOV 63 ,R5 sLINE 3 WILL BE TESTED 
MOV #342400+100000, RDATA 
;SET EXPECTED LINE 
;AND VALID DATA FLAG 
sEXPECTED DATA 
MOV #15,R0 313 SPEEDS WILL BE TESTED 
MOV $2103,R1 sFIRST SPEED =50 BAUD, 


EI Ne ome 





CZDHF -CO 


— 


005316 
005322 
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010577 
010177 


012777 
012777 
012777 


012767 
012767 
012767 


012767 
000026 
012777 
012702 


012705 
012767 


012700 
012701 


010577 


010734 
010734 


016364 
177400 


000010 
010702 


010676 
010772 


010674 


000010 
010746 


002100 


010730 
010724 
010720 


010662 


1$: MOV 
MCV 


MOV 
2$: TSTB 


3$: INCB 


4$: OPE 
LINE =LINE+1 
BITX=BITX+BITX 


RS ,@DHSCR 
R1,80HLPR 


#TBUF , SOHBA 
#-400, ADHBC 
es 


ina 


2 
SOHNRC ,R3 
— 


— 


SDATA2 \LINE,\BITX 


s SINGLE “ey DATA TEST 
A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 4 
TER LENGTH IS 8 BITS 





;8 BITS PER CHARACTER 
sSELECT LINE 3 

;SET LINE SPEED AND 
sCHARACTER LENGTH 

sADDRESS OF TRANSMITTER 

sDATA BUFFER 

5400 COCTAL) BYTES 

;sWILL BE TRANSMITTED 

s;START TRANSMITTER 

sWAIT FOR DATA TC BE RECEIVED 


sGET RECEIVED DATA 





SEQ 39 


;COMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
sDATA ERROR 


sCHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sUPDATE LINE SPEED 
sUPDATE SPEED CODE 


LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED 











;T0 9600 BAUD. 
3A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
;AT EACH SPEED 
TS \XN,1,4$,18 
T25: MOV 0340 ,PS ;sDISABLE ALL INTERRUPTS 
MOV #1, ICOUNT ;SET UP FOR 1 ITERATIONS 
ot a a #43 ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<1$> 
MOV #1$,FREEZ1i ;SET UP TO LOOP WITH DATA 
.ENDC 
XN=XNel 
MOV 461IT11,@DHSCR sMASTER CLEAR INTERFACE 
MOV é : sFIRST SPEED CODE 
MOV 64 RS sLINE 4 WILL BE TESTED 
MOV $44400+100000,RDATA 
;SET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 
sEXPECTED DATA 
MOV #15,R0 313 SPEEDS WILL BE TESTED 
MOV $2103,R1 sFIRST SPEED =50 BAUD. 
78 BITS PER CHARACTER 
1$: MOV RS ,8DHSCR sSELECT LINE 4 
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010177 
012777 
012777 


012777 
105777 


012767 
012767 
012767 


012767 


000027 
012777 
012702 
012705 
012767 


012700 
012701 


010577 
010177 


“— 


010536 
016364 
177400 


000020 
010504 


010500 
010574 


010476 


000020 
010550 


002100 


000340 
000001 
006022 


005712 


0040006 
000001 
000005 
102400 


000015 
002103 


010340 
010340 


010532 
010526 
010522 


010464 


172142 


010372 


010456 
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MOV R1,3DHLPR 
MOV &TBUF , SDHBA 
MOV #20, @DHBAR 
2s: TSTB @DHSCR 
BPL 2$ 
MOV SDHNRC ,R3 
CMP R3,RDATA 
BEQ 3$ 
CLR @DHBAR 
HLT 1 
EMT 
SCOPE1 
V $20, BDHBAR 
3$: INCB RDATA 
BNE 2$ 
ADD #2100,R1 
INC R2 
DEC RO 
BNE i$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SOATA2 \LINE,\BITX 


T26 


1$: 


TS \XN,1,4$8,18 


sSINGLE LINE DATA TEST 


;SET LINE SPEED AND 
;CHARACTER LENGTH 

;ADDRESS OF TRANSMITTER 

;DATA BUFFER 

3400 COCTAL) BYTES 

;sWILL BE TRANSMITTED 

;START TRANSMITTER 

;sWAIT FOR DATA TO BE RECEIVED 


sGET RECEIVED DATA 
;COMPER EXPECTED AND RECEIVED DATA 


sSTOP TRANSMITTER 
;DATA ERROR 


sCHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sUPDATE LINE SPEED 
sUPDATE SPEED CODE 


s TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 5 


sCHARATER LENGTH IS 8 BITS 


;LINE ag Aga START AT 50 BAUD AND BE INCREMENTED 
sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 


:7T0 96 

;AT EACH SPEED 

MOV $340 ,PS 

MOV #1, ICOUNT 

MOV 04$, ESCAPE 
<1$> 

MOV #1%,FREEZ1 
MOV #B1T11,@DHSCR 
MOV #1,R2 

MOV #5,,R5 

MOV #54400+100000, RDATA 
MOV #15,R0 

MOV #2103,Ri 

MOV RS ,@DHSCR 

MOV R1,@DHLPR 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 1 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 


sMASTER CLEAR INTERFACE 
sFIRST SPEED CODE 


sLINE 5 WILL BE TESTED 


;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
sEXPECTED DATA 

313 SPEEDS WILL BE TESTED 
SFIRST SPEED =50 BAI'D, 

38 BITS PER CHARACTER 
;SELECT LINE 5 

;SET LINE SPEED AND 
;CHARACTER LENGTH 


RO SEER SR Ee ee er 


CZOMF -CO 


005722 
005730 
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012777 
012777 


012777 
105777 
100375 
017703 
020367 
001407 
005077 


104001 


012767 
012767 
012767 


012767 
000030 
012777 
012702 


012705 
012767 


012700 
012701 


010577 
010177 


v12777 


016364 
177400 


000040 
010306 


010302 
010376 


010300 


000040 
010352 


002100 


000015 
002103 


010142 
010142 


016364 


010334 
010330 
010324 


010266 


171744 


010136 


MOV STBUF , 8DHBA 
MOV #-400, 8DHBC 
MOV $40, 8DHBAR 
2s: TSTB @DHSCR 
BPL 2$ 
MOV QDHNRC RS 
CMP R3,RDATA 
BEQ 3$ 
CLR @DHB AR 
HLT 1 
EMT 
SCOPEL 
MOV #40, 8DHBAR 
3$: INCB RDATA 
BNE 2$ 
ADD #2100,R1 
INC Re 
DEC RO 
BNE i$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SDATA2 \LINE,\BITX 


sSINGLE LINE DATA TEST 


;ADDRESS OF TRANSMITTER 
;DATA BUFFER 

3400 (COCTAL) BYTES 

;sWILL BE TRANSMITTED 

:;START TRANSMITTER 

;sWAIT FOR DATA TO BE RECEIVED 


sGET RECEIVED Sara 





SEQ 41 


sCOMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


;CHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sUPDATE LINE SPEED 
sUPDATE SPEED CODE 


TRANSMIT A BLOCK OF 400 (COCTAL) CHARACTERS ON LINE 6 


sCHARATER LENGTH IS 8 BITS 


sLINE SPEED WILL START AT S50 BAUD AND BE INCREMENTED 


:T0 9600 BAUD. 
sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
sAT EACH SPEED 
TS \XN,1,43,1$ 
T27: MOV #340 .PS sDISABLE ALL INTERRUPTS 
MOV #1, ICOUNT ;SET UP FOR 1 ITERATIONS 
= pr 64$, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
<1$> 
MOV #1$,FREEZ1 ;SET UP TO LOOP WITH DATA 
.ENDC 
XN=XNel 
MOV #6IT11,@DHSCR sMASTER CLEAR INTERFACE 
MOV #1,R2 sFIRST SPEED CODE 
MOV 66 ,.RS sLINE 6 WILL BE TESTED 
MOV #64400 +100000,RDATA 
sSET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
3 sEXPECTED DATA 
MOV #15,R0 3:13 SPEEOS WILL BE TESTED 
MOV 92103,R1 sFIRST SPEED =50 BAUD. 
38 BITS PER CHARACTER 
1$: MOV RS ,A@DHSCR ;SELECT LINE 6 
MOV R1,@DHLPR sSET LINE SPEED AND 
s;CHARACTER LENGTH 
MOV #TBUF .@DHBA sADDRESS OF TRANSMITTER 


sDATA BUFFER 


SEEN PRO oka Sa GSO ee eee vO 


oe 
Ww 


COOHF -CO 
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012777 


012777 
105777 
100375 
017703 
020367 
001407 
005077 


012767 


012767. 


012767 
012767 
000031 
012777 
012702 


012705 
012767 


012700 
012701 


010577 
010177 


012777 
012777 


177400 


000100 
010110 


010104 
010200 


010102 


000100 
010154 


002100 


010132 
010126 


010070 


007740 
007734 


MOV #-400, @DHBC 
MOV 100 ,@DHBAR 
TSTB @DHSCR 
BPL 2$ 
MOV IDHNRC , RS 
CMP R3,RDATA 
BEQ 3$ 
CLR QDHBAR 
HLT 1 
EMT 
SCOPE1 
V #100 ,3DHBAR 
3$: INCB RDATA 
BNE 2$ 
ADD #2100,R1 
INC Ne 
DEC RO 
BNE 1$ 
4$: SCOPE 
LINE =LINE+1i 
BITX=BITX+BITX 
SDATA2 \LINE,\BITX 


sSINGLE LINE DATA TEST 


JUN-85 12:59:01 PAGE 19-18 





SEQ 42 


3400 COCTAL) BYTES 
;WILL BE TRANSMITTED 

;START TRANSMITTER 

;WAIT FOR DATA TO BE RECEIVED | 


;GET RECEIVED DATA 
sCOMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
sDATA ERROR 


s;CHECK FOR LOOP AT CURRENT SPEED 
;RESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sUPDATE LINE SPEED 
sUPDATE SPEED CODE 


; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 7 
sCHARATER LENGTH IS 8 BITS 
sLINE SPEED WILL START AT SO BAUD AND BE INCREMENTED 


;T0 9600 BAUD. 
3A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
;AT EACH SPEED 
TS \XN,1,4$,1$ 
730: MOV $340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #1, ICOUNT ;SET UP FOR 1 ITERATIONS 
MOV 84$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
IF NB <1$> 
MOV #1$,FREEZ1 ;SET UP TO LOOP WITH DATA 3 3 
-ENDC 
XN=XNel 
MOV #B81IT11,8DHSCR sMASTER CLEAR INTERFACE 
MOV R2 sFIRST SPEED CODE 
MOV #7,R5 ;LINE 7 WILL BE TESTED 
MOV #7#400+100000, RDATA 
:SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
sEXPECTED DATA 
MOV $15,R0 313 SPEEDS WILL BE TESTED 
MOV #2103,R1 ;FIRST SPEED =50 BAUD, 
78 BITS PER CHARACTER 
i$: MOV R5 .8DHSCR ;SELECT LINE 7 
MOV R1,3DHLPR ;SET LINE SPEED AND 
;CHARACTER LENGTH 
MOV #TBUF , BDHBA ;ADDRESS OF TRANSMITTER 
;DATA BUFFER 
MOV #-400, 8DHBC 7400 COCTAL) BYTES 


uae oe, Saale eiasinoe eect 


;WILL BE TRANSMITTED 





006340 
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012777 
105777 
100375 
017703 
020367 
001407 
005077 


104001 


012767 
012767 
012767 


012767 
000032 
012777 
012702 


012705 
012767 


012700 
012701 


010577 
010177 


012777 
012777 


012777 
105777 


000200 
00/712 


007706 
010002 


007704 


000200 
007756 


002100 


007730 


007672 


171350 
007670 
007656 


007652 


007600 


007664 


007542 
007536 
007532 


MOV #200 ,8DHBAR 
SDHSCR 


BPL 2$ 
MOV QDHNRC ,R3 
CMP R3,RDATA 


SEQ 43 


;START TRANSMITTER 
sWAIT FOR DATA TO BE RECEIVED 


;GET RECEIVED DATA 
;COMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


sCHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sUPDATE LINE SPEED 
;UPDATE SPEED CODE 


; TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 10 
;LINE hg 1 ga START AT 50 BAUD AND BE INCREMENTED 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 1 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
sFIRST SPEED CODE 


;LINE 10 WILL BE TESTED 


;SET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 
sEXPECTED DATA 

313 SPEEDS WILL BE TESTED 
sFIRST SPEED =SO BAUD, 

38 BITS PER CHARACTER 
;SELECT LINE 10 

;SET LINE SPEED AND 
:;CHARACTER LENGTH 
sADODRESS OF TRANSMITTER 
;DATA BUFFER 

3400 COCTAL) BYTES 

s;WILL BE TRANSMITTED 
:START TRANSMITTER 


BEQ 3$ 
CLR QDHBAR 
HLT 1 
EMT 
SCOPE 
MOV #200 , ABDHBAR 
3$: INCB RDATA 
BNE 2$ 
ADD #2100,R1 
INC R2 
DEC RO 
BNE i$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SDATA2 \LINE, \BITX 
;SINGLE LINE DATA TEST 
;CHARATER LENGTH IS 8 BITS 
;1TG 9600 
3A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
;AT EACH SPEED 
TS \XN,1,4$,1$ 
T31: MOV #340 .PS 
MOV #1, ICOUNT 
MOV 843, ESCAPE 
IF NB <1$> 
MOV $1$,FREEZ1 
-ENDC 
XN=XNel 
MOV #B1IT11,8DHSCR 
MOV $1,R2 
MOV #10,R5 
MOV #102#400+100000 ,RDATA 
MOV #15,R0 
MOV #2103,R1 
MOV Ri, SOHLPR 
MOV #TBUF , 3DHBA 
MOV #-400, @DHBC 
MOV #400 , ABDHBAR 
2s: TSTB SDHSCR 





;WAIT FOR DATA TO BE RECEIVED 


: SEQ 44 
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006542 100375 BPL 2$ 
006 017703 007510 MOV @DHNRC ,R3 ;GET RECEIVED DATA 
006550 020367 007604 CMP R3,RDATA ;sCOMPER EXPECTED AND RECEIVED DATA 
006554 001407 BEQ 3$ 
006556 005077 007506 CLR 8DHBAR ;STOP TRANSMITTER 
006562 HLT 1 ;DATA ERROR 
006562 104001 EMT 
006564 104410 SCOPEL ;CHECK FOR LOOP AT CURRENT SPEED 
006566 012777 000400 007474 MOV #400 , ADHBAR sRESTART TRANSMITTER 
006574 105267 007560 3$: INCB RDATA ;UPDATA EXPECTED DATA 
006600 001356 BNE 2s 
006602 062701 002100 ADD #2100,R1 ;UPDATE LINE SPEED 
006606 005202 INC R2 ;sUPDATE SPEED CODE 
006610 005300 DEC RO 
006612 001334 BNE i$ 
006614 104400 4$: SCOPE 
000011 LINE =LINE+1 
001000 BITX=BITX+BITX 
006616 SDATA2 \LINE,\BITX 
;SINGLE LINE DATA TEST 
; TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 11 
; CHARATER LENGTH IS 8 BITS 
;LINE SPEED WILL START AT SO BAUD AND BE INCREMENTED 
;T0 9600 BAUD. 
7A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
SAT EACH SPEED 
006616 TS \XN,1,4$,1$ 
006616 012767 006s40 171152 T32: MOV #340 ,PS ;sDISABLE ALL INTERRUPTS 
006624 012767 000001 007472 MOV #1, ICOUNT ;SET UP FOR 1 ITERATIONS 
005632 012767 007012 007460 ae 94 $4$ , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
iS < > 
006640 012767 006702 007454 cae MOV #1$,FREEZi ;SET UP TO LOOP WITH DATA 
000033 XN=XNe1 
006646 012777 004000 0074062 MOV #681IT11,3DHSCR sMASTER CLEAR INTERFACE 
006654 012702 000001 MOV 1,R2 sFIRST SPEED CODE 
006660 012705 0oO00011 MOV #11,R5 sLINE 11 WILL BE TESTED 
006664 012767 104400 007466 . MOV #11#400+100000,RDATA 
:SET EXPECTED LINE NUMBER 
:AND VALID DATA FLAG 
sEXPECTED DATA 
006672 012700 000015 MOV #15,R0 313 SPEEDS WILL BE TESTED 
006676 012701 002103 MOV $2103,R1 :FIRST SPEED =50 BAUD, 
3:8 BITS PER CHARACTER 
006702 010577 007350 1s: MOV RS ,@CHSCR ;SELECT LINE 11 
006705 010177 007350 MOV R1,@DHLPR ;SET LINE SPEED AND 
3 ;CHARACTER LENGTH 
006712 012777 016364 007344 MOV @TBUF , SDHBA Ta 
. ’ 
006720 012777 177400 007340 MOV #-4090, @DHBC 7409 COCTAL) BYTES 
;sWILL BE TRANSMITTED 
006726 012777 001000 007334 MOV #1000, @DHBAR ;START TRANSMITTER 
006734 105777 007316 2s: TSTB @DHSCR ;WAIT FOR DATA TO BE RECEIVED 
006740 100375 BPL es 
006742 017703 007312 MOV @DHNRC RS :;GET RECEIVED DATA 
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020367 
001407 
005077 


104001 


012767 
012767 
012767 


012767 
000034 
012777 
012702 


012705 
012767 


012700 
012701 


010577 
010177 


012777 
012777 


007406 
007310 


001000 
007362 


002100 


007276 


170754 
007274 
007262 


067256 


097204 


007270 


007146 
007142 
007136 


4$: 


LINE=LINE+1 


BITX=BITX+BITX 
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R3,RDATA 
3$ 


_— 


#1000, ADHBAR 


RDATA 
2 


, 
#2100,Ri 
Re 


RO 
i$ 


SDATA2 \LINE,\BITX 


TS \XN,1,4$,1$ 
MO 


T33: 


i$: 


2$: 


;SINGLE LINE DATA TEST 


—— Cam ee ow 


SEQ 45 


;COMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


s;CHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sUPDATE LINE SPEED 
sUPDATE SPEED CODE 


;TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 12 


s;CHARATER LENGTH IS 8 BITS 


sLINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED 
370 9600 BAUD. 

sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 

;AT EACH SPEED 


#340 ,PS 
#1, I COUNT 
#4$ , ESCAPE 


#1$,FREEZ1 


#1, 
#12,R5 


#15,R0 


$2103,Ri — 


RS, @DHSCR 
R1,@DHLPR 


#TBUF , @DHBA 
#-400, @DHBC 
#2000, @DHBAR 
SDHSCR 


2$ 


GOHNRC .RS 
R3,RDATA 


3$ 


#61711 ,8DHSCR 
R2 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 1 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 


W 


sMASTER CLEAR INTERFACE 
sFIRST SPEED CODE 


ED 
sLINE 12 WILL BE TESTED 
#12%400+ 100000 ,RDATA 


;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
:EXPECTED DATA 

313 SPEEDS WILL BE TESTED 
FIRST SPEED =50 BAUD, 

:8 BITS PER CHARACTER 
;SELECT LINE 12 

;SET LINE SPEED AND 
;CHARACTER LENGTH 
;ADDRESS OF TRANSMITTER 
;DATA BUFFER 

:400 COCTAL) BYTES 

;sWILL BE TRANSMITTED 
;START TRANSMITTER 

;sWAIT FOR DATA TO BE RECEIVED 


;GET RECEIVED DATA 
s;COMPER EXPECTED AND RECEIVED DATA 


eee a OR I, eee ee. sn 
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007152 005077 007112 CLR SDHBAR ;STOP TRANSMITTER 
007156 HLT 1 ;:DATA ERROR 
007156 104001 EMT 1 
007160 104410 SCOPE1 ;CHECK FOR LOOP AT CURRENT SPEED 
007162 012777 002000 007100 MOV #2000, SDHBAR sRESTART TRANSMITTER 
007170 105267 007164 3$: INCB RDATA ;UPDATA EXPECTED DATA 
007174 001356 BNE 2$ 
007176 062701 002100 ADD #2100,R1 ;UPDATE LINE SPEED 
007202 005202 INC R2 ;UPDATE SPEED CODE 
007204 005300 DEC RO 
007206 091334 BNE 1$ 
007210 104400 4s: SCOPE 
000013 LINE=LINE+1 
004000 BITX=BITX+BITX 
007212 SDATA2 \LINE, \BITX 
sSINGLE LINE DATA TEST 
;TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 13 
;CHARATER LENGTH IS 8 BITS 
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED 
;TO 9600 BAUD. 
;A BLOCK GF 400 CHARACTERS WILL BE TRANSMITTED 
;AT EACH SPEED 
007212 TS \XN,1,48,18 
007212 012767 000340 170556 134: | MOV #340,PS ;DISABLE ALL INTERRUPTS 
007220 012767 000001 007076 MOV #1, ICOUNT ;SET UP FOR 1 ITERATIONS 
007226 012767 007406 007064 e mY #4$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
< > 
007234 012767 007276 007060 i #1$,FREEZ1 ;SET UP TO LOOP WITH DATA 
000035 XN=XNe 1 
007242 012777 004000 007006 MOV @BIT11,@DHSCR sMASTER CLEAR INTERFACE 
007250 012702 000001 MOV #1,R2 sFIRST SPEED CODE 
007254 012705 000013 MOV #13,R5 ;LINE 13 WILL BE TESTED 
007260 012767 105400 007072 MOV #13%400+100000,RDATA 
;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
;EXPECTED DATA 
007266 012700 000015 MOV 615,R0 
007272 012701 002103 MOV #2103,R1 
007276 010577 006754 i$: MOV RS, @DHSCR 
007302 010177 006754 MOV R1, @DHLPR ;SET SPEED AND 
| ;CHARACTER LENGTH 
007306 012777 016364 006750 MOV #TBUF , BDHBA s ADDRESS OF TRANSMITTER 
: BUFF 
007314 012777 177400 006744 MOV #-400, SDHBC 400 COCTAL) BYTES 
| ;WILL BE TRANSMITTED 
007322 012777 004000 006740 MOV #4000, SOHBAR sSTART TRANSMITTER 
007330 105777 006722 2$: TSTB  @DHSCR ;WAIT FOR DATA TO BE RECEIVED 
007334 100375 | BPL 2$ 
007336 017703 006716 MOV @DHNRC .R ;GET RECEIVED DATA 
007342 020367 007012 R3,RDATA ;COMPER EXPECTED AND RECEIVED DATA 
007346 001407 BEQ 3$ 
007350 005077 006714 CLR SDHBAR ;STOP TRANSMITTER 
007354 HLT 1 :DATA ERROR 
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007354 
007356 
007360 
007366 
007372 
007374 
007400 
007402 
007404 
007406 


007410 
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104001 
0 


012767 
012767 
012767 


012767 
000036 
012777 
012702 


012705 
012767 


012700 
012701 


010577 
010177 


012777 
012777 
012777 


004000 
006766 


002100 





006702 


170360 
006700 
006666 


006662 


006610 


006674 


006552 
006546 
006542 





MT 

SCOPE1 

MOV #4000, ADHBAR 
3$: INCB RDATA 

BNE 2$ 

ADD #2100,R1 

INC R2 

DEC RO 

BNE i$ 
4$: SCOPE 
LINE=LINE+1 
BITX=BITX+BITX 


SDATA2 \LINE, \BITX 
sSINGLE LINE DATA TEST 


SEQ 47 


;CHECK FOR LOOP AT CURRENT SPEED 


;RESTART TRANSMITTER 


;UPDATA EXPECTED DATA 


sUPDATE LINE SPEED 
sUPDATE SPEED CODE 


; TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 14 


sCHARATER LENGTH IS 8 BITS 


sLINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED 


:T0 9600 BAUD. 


3A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 


;AT EACH SPEED 


TS \XN,1,4$,1$ 
TSS: MOV #340 ,PS 
MOV 


#1 ,ICOUNT 
MOV #4$ ,ESCAPE 
-IF NB <i$> 
MOV #1$,FREEZ! 
.ENDC 
XN=XNel 
MOV #BIT11,@8DHSCR 
MOV #1,R2 
MOV $14, R5 
MOV $144%400+100000, RDATA 
MOV #15,R0 
MOV #2103,R1 
1$: MOV RS ,@DHSCR 
MOV Ri, BDHLPR 
MOV STBUF ,DHBA 
MOV #-400, BDHBC 
MOV #10000 , BOHBAR 
2$: TSTB 8DHSCR 
BPL 2s 
MOV SDHNRC .R3S 
CMP R3,RDATA 
BEQ 3$ 
CLR @DHBAR 
HLT 1 
EMT 1 
SCOPE1 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 1 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
sFIRST SPEED CODE 


sLINE 14 WILL BE TESTED 


;SET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 
sEXPECTED DATA 

313 SPEEDS WILL BE TESTED 
sFIRST SPEED =50 BAUD, 

38 BITS PER CHARACTER 
sSELECT LINE 14 

sSET LINE SPEED AND 
sCHARACTER LENGTH 


3400 COCTAL) BYTES 

;WILL BE TRANSMITTED 

sSTART TRANSMITTER 

;WAIT FOR DATA TO BE RECEIVED 


;GET RECEIVED DATA 
;COMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


;CHECK FOR LOOP AT CURRENT SPEED 
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012777 
105267 
001356 


012767 
012767 
012767 


012767 


000037 
012777 
012702 
012705 
012767 


012700 
012701 


010577 
010177 


012777 
012777 


012777 
105777 
100375 
017703 
020367 
001407 
005077 


104001 
104410 
012777 
105267 


010000 
006570 


002100 


006504 


170162 
006502 
006470 


006464 


006412 


006476 


006354 
006350 
006344 


006306 


MOV #10000 , ADHBAR ;sRESTART TRANSMITTER 
3$: — _ ;UPDATA EXPECTED DATA 
ADD #2100,R1 ;UPDATE LINE SPEED 
INC R2 ;UPDATE SPEED CODE 
DEC RO 
BNE i$ 
4$: SCOPE 
LINE=LINE+i 
BITX=BITX+BITX 
SDATA2 \LINE, \BITX 
;SINGLE LINE DATA TEST 
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 15 
;CHARATER LENGTH IS 8 BITS 
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED 
;TO 9600 BAUD. 
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
;AT EACH SPEED 
TS \XN,i1,4$,1$ 
T36: MOV #340 ,PS ;sDISABLE ALL INTERRUPTS 
MOV #1 ,ICOUNT ;SET UP FOR 1 ITERATIONS 
MOV #4$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
-IF NB <i$> 
MOV #1$,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNel1 
MOV #B1IT11,3DHSCR ;sMASTER CLEAR INTERFACE 
MOV #1,R2 sFIRST SPEED CODE 
MOV #15,R5 ;LINE 15 WILL BE TESTED 
MOV #154#400+100000 ,RDATA 
;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
;EXPECTED DATA 
MOV #15,R0 313 SPEEDS WILL BE TESTED 
MOV #2103,Ri ;FIRST SPEED =50 BAUD. 
38 BITS PER CHARACTER 
i$: MOV RS ,@DHSCR ;sSELECT LINE 15 
MOV R1,@DHLPR ;SET LINE SPEED AND 
;CHARACTER LENGTH 
MOV @TBUF . @DHBA ;ADDRESS OF TRANSMITTER 
;DATA BUFFER 
MOV #-400, @DHBC :400 COCTAL) BYTES 
;sWILL BE TRANSMITTED 
MOV #20000 , 8DHBAR ;START TRANSMITTER 
2$: Ly + ;sWAIT FOR DATA TO BE RECEIVED 
L , 
MOV SDHNRC RS ;GET RECEIVED DATA 
oe —* ;COMPER EXPECTED AND RECEIVED DATA 
$ 
CLR ADHBAR :STOP TRANSMITTER 
ah 1 ;DATA ERROR 
SCOPE1 ;CHECK FOR LOOP AT CURRENT SPEED 
V #20000 , ADHBAR ;sRESTART TRANSMITTER 
3$: INCB RDATA ;sUPDATA EXPECTED DATA 





EEL REREREEA INERT LE ILD TS LIL POLLO ELODIE EE SLOT BE A 


EE =—————————ee een Sr we Sees on eee Eee ee oe? eee ee 


SEQ 49 


RNS ECSU ease one 
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007766 001356 CNE 2s 
007770 062701 002100 ADD #2100,R1 sUPDATE LINE SPEED 
007774 005202 INC R2 sUPDATE SPEED CODE 
007776 005300 DEC RO 
010000 001334 BNE is 
010002 104400 4$: SCOPE 
000016 LINE =LINE+1 
040000 BITX=BITX+BITX 
010004 SDATA2 \LINE,\BITX 
sSINGLE LINE DATA TEST 
s TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 16 
;CHARATER LENGTH IS 8 BITS 
sLINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED 
;T0 9600 BAUD. 
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
sAT EACH SPEED 
010004 TS \XN,1,4$,1$ 
010004 012767 000340 167764 137: MOV #340,PS sDISABLE ALL INTERRUPTS 
010012 012767 000001 006304 MOV #1, ICOUNT ;SET UP FOR 1 ITERATIONS 
010020 012767 010200 006272 or me #4$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
; <1$> 
010026 012767 010070 006266 _— MOV #1$,FREEZ1 sSET UP TO LOOP WITH DATA 
000040 XN=XNel 
010034 012777 004000 006214 MOV #B81IT11,@DHSCR sMASTER CLEAR INTERFACE 
010042 012702 000001 MOV #1,R2 sFIRST SPEED CODE 
010046 012705 000016 MOV #16,R5 sLINE 16 WILL BE TESTED 
010052 012767 107000 006300 MOV #164*400+100000, RDATA 
;sSET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
sEXPECTED DATA 
010060 012700 000015 MOV #15,R0 313 SPEEOS WILL BE TESTED 
010064 012701 002103 MOV #2103,R1 sFIRST SPEED =50 BAUD, 
38 BITS PER CHARACTER 
010070 010577 006162 1$: MOV RS, 8DHSCR sSELECT LINE 16 
010074 010177 006162 MOV R1,@DHLPR sSET LINE SPEED AND 
;CHARACTER LENGTH 
010100 012777 016364 006156 MOV ¢TBUF , BDHBA ie 
‘ 
010106 012777 177400 006152 MOV #-400, @DHBC :400 COCTAL) BYTES 
sWILL BE TRANSMITTED 
010114 012777 040000 006146 MOV #40000 , BDHBAR sSTART TRANSMITTER 
010122 105777 006130 2$: TSTB SDHSCR ;WAIT FOR DATA TO BE RECEIVED 
010126 100375 BPL 2$ 
010130 017703 006124 MOV SDHNAC RS sGET RECEIVED DATA 
010134 020367 606220 CMP RS, RDAT ;COMPER EXPECTED AND RECEIVED DATA 
019140 001407 BEQ s$ 
010142 005077 006122 CLR SDHBAR ;STOP TRANSMITTER 
010146 HLT 1 sDATA ERROR 
10146 104001 EMT 
010150 104410 SCOPE1 sCHECK FOR LOOP AT CURRENT SPEED 
010152 012777 040000 006110 V #40000 , ADHBAR sRESTART TRANSMITTER 
010160 105267 006174 3$: INCB RDATA sUPDATA EXPECTED DATA 
010164 001356 BNE 2$ 
010166 062701 002100 ADD #2100,R1 sUPDATE LINE SPEED 








SL SE EE TT A TS TS E.R 
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010172 005202 INC R2 ;UPDATE SPEED CODE 
010174 005300 DEC RO 
010176 001334 BNE 1$ 
010200 104400 4$: SCOPE 
000017 LINE =LINE+1 
100000 BITX=BITX+BITX 
010202 SDATA2 \LINE,\BITX 
sSINGLE LINE DATA TEST 
;TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 17 
;CHARATER LENGTH IS 8 BITS 
sLINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED 
;TO 9600 BAUD. 
sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
AT EACH SPEED 
010202 TS \XN,1,48,1° 
010202 012767 000340 167566 140: MOV #340 .PS sDISABLE ALL INTERRUPTS 
010210 012767 000001 006106 MOV #1,ICOUNT s;SET UP FOR 1 ITERATIONS 
010216 012767 010376 006074 in Ko #4$, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
< > 
010224 012767 010266 006070 ian MOV #1$,FREEZ1 sSET UP TO LOOP WITH DATA 5 3 
000041 XN=XNe1 
010232 012777 004000 006016 MOV #61T11,@D0HSCR sMASTER CLEAR INTERFACE 
010240 012702 000001 MOV #1,R2 sFIRST SPEED CODE 
010244 012705 000017 MOV #17, RS sLINE 17 WILL BE TESTED 
010250 012767 107400 006102 MOV #17%400+100000, RDATA 
;SET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 
sEXPECTED DATA 
010256 012700 000015 MOV #15,R0 313 SPEEDS WILL BE TESTED 
010262 012701 002103 MOV #2103,R1 sFIRST SPEED =50 BAUD, 
38 BITS PER CHARACTER 
010266 010577 005764 1$: MOV RS ,@DHSCR sSELECT LINE 17 
010272 010177 005764 MOV R1,3DHLPR ;SET LINE SPEED 
:;CHARACTER LENGTH 
010276 012777 016364 005760 MOV ¢TBUF , @DHBA ite 
; 
010304 012777 177400 005754 MOV ¢-400, BDHBC 3400 COCTAL) BYTES 
sWILL BE TRANSMITTED 
010312 012777 100000 005750 MOV #100000, SDHBAR ;START TRANSMITTER 
010320 105777 005732 2$: TSTB @DHSCR sWAIT FOR DATA TO BE RECEIVED 
010324 100375 BPL 2$ 
019326 017703 005726 MOV SDHNRC .R3 ;GET RECEIVED DATA 
010332 020367 006022 CMP R3,RDATA sCOMPER EXPECTED AND RECEIVED DATA 
010336 001407 BEQ 3% 
010340 005077 005724 CLR SOHBAR sSTOP TRANSMITTER 
019344 HLT 1 s;GATA ERROR 
010344 104001 EMT 1 
010346 104410 SCOPE1 ;CHECK FOR LOOP AT CURRENT SPEED 
010350 012777 100000 005712 MOV #100000, SDHBAR sRESTART TRANSMITTER 
010356 105267 005776 3$: INCB RDATA sUPDATA EXPECTED DATA 
010362 001356 BNE 2$ 
010364 062701 002100 ADD #2100,R1 UPDATE LINE SPEED 
010370 52 INC Re sUPDATE SPEED CODE 
010372 005300 DEC RO 
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010374 
010376 


010400 
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012767 
012767 
012767 
012767 
000042 
012777 
005004 


012705 
012767 


012700 
012701 
012767 
010577 
010177 
012777 
016777 
012777 


105777 
100375 


167370 
005710 
005676 


005672 


005620 


005706 


005672 


005550 
005544 
005540 





BNE i$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 


20 
\LINE , \BITX 
ST 
LINE =LINE+1 
BITX=BITX+BITX 
.LIST 
. ENDR 
SDATAS \LINE,\BITX 
sSINGLE LINE DATA TEST 


; TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 0 


;LINE SPEED IS 9600 BAUD 
;T0 


dyes LENGTH WILL START AT 5 BITS AND BE INCREMENTED 


A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 


sAT EACH CHARACTER LENGTH 
TS \XN,1,4$,18 
MOV 


T4l: $340 ,PS 
MOV #1, ICOUNT 
MOV #4$, ESCAPE 
IF NB <1$> 
MOV $1$,FREEZ1 
.ENDC 
XN=XNel 
MOV €68IT11,3DHSCR 
CLR Ra 
MOV 40 .,.R5 
MOV $02400+100000, RDATA 
MOV 04 KS 
MOV #33500 .R1 
1$: MOV RS, 
MOV BYTCNT, Re 
NEG Re 
MOV R1,@DHLPR 
_ MOV @TBUF , BDHBA 
MOV BY TCNT , 8OHBC 





MOV $1, IDHBAR 
2s: TSTB @DHSCR 
BPL 2$ 





SEQ 51 
;DISABLE ALL INTERRUPTS 
;SET UP FOR 1 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 
;SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
sFIRST CHARACTER LENGTH CODE (5 BITS) 


;sLINE © WILL BE TESTED 


sSET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 





TEO 

sFIRST CHARACTER LENGTH =5 BITS... 
sLINE SPEED =9600 BAUD 

340 CHARACTERS AT 5S BITS 

;SELECT LINE 0 





:SET LINE SPEED AND 
sCHARACTER LENGTH 

sADDRESS OF TRANSMITTER 

sDATA BUFFER 

3400 COCTAL) BYTES 

;sWILL BE TRANSMITTED 

sSTART TRANSMITTER 

sWAIT FOR DATA TO BE RECEIVED 


CZDHF -CO 


an 


010536 
010542 
010546 
010550 
010554 
010554 
010556 
010560 
010566 
010572 
010574 
010576 


010722 
010726 
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017703 


012767 
012767 
012767 
012767 
000043 
012777 
005004 
012705 
012767 


012700 
012701 
012767 
010577 
016702 
005402 
010177 


012777 


005516 
005612 


005514 


000001 


005566 


005556 


005550 


005502 


005452 


005330 


MOV QDHNRC ,R3S 
CMP R3,RDATA 


BEQ 3$ 
CLR @DHBAR 
HLT 2 
EMT 
SCOPE1 
V #1 ,80HBAR 
3$: INCB RDATA 
DEC R2 
BNE 2$ 
CLRB RDATA 
INC Ri 
INC 4 
ASL BYTCNT 
DEC RO 
BNE is 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 


SDATAS \LINE,\BITX 
sSINGLE LINE DATA TEST 





SEQ S2 


;GET RECEIVED DATA 
;COMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


;CHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sINITIALIZE EXPECTED 
sRECEIVED DATA 
sUPDATA CHARACTER LENGTH 


; TRANSMIT A BLOCK F oak COCTAL) CHARACTERS ON LINE 1 


sLINE SPEED IS 9600 


;CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 


:T0 8 BITS 
7A BLOCK OF 
;AT EACH CHARACTER LENGTH 


TS \XN,1,4$8,18 
MOV 





T42: 0340,PS 
MOV 61, ICOUNT 
MOV 043 ,,ESCAPE 
IF NB <1$> 
MOV #1$,FREEZ1 
-ENDC 
XN=XNeol 
MOV #8IT11,@DHSCR 
CLR R4 
MOV #1,R5 
MOV #1 400+100000, RDATA 
$4 ,RO 
#33500 ,R1 
#-40 eBYTCNT 
i$: RS ,@OHSCR 
BYTCNT »R2 
R2 
R1.80HLPR 





@TBUF , SDHBA 





400 CHARACTERS WILL BE TRANSMITTED 





sDISABLE ALL INTERRUPTS 
sSET UP FOR 1 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 3; 3 





sMASTER CLEAR INTERFACE 
sFIRST CHARACTER LENGTH CODE (5 BITS) 


;sLINE ‘ WILL BE TESTED 


sSET EXPECTED LINE NUMBER 
3 AND soee ents” FLAG 





] 

sFIRST CHARACTER LENGTH =5 BITS., 
sLINE SPEED =9600 BAUD 

340 CHARACTERS AT 5 BITS 

sSELECT LINE 1 








sSET LINE SPEED AND 
;CHARACTER LENGTH 
sADORESS OF TRANSMITTER 


010734 


011014 
011016 


011022 
011024 
011026 
011032 
011034 
011036 


011040 


011040 
011040 
011046 
011054 


011062 
011070 
011076 


011100 
011104 


011112 
011116 
011122 
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016777 


012777 
105777 


012767 
012767 
012767 
012767 
000044 
012777 
065004 
012705 
012767 


012700 
012701 
012767 


005422 


000002 
005302 


005276 
005372 


005274 


000002 
005346 


005336 


005330 


000340 
000001 
011256 


011130 


004000 


000002 
101000 


000004 
033500 
177740 


005324 
005320 


005262 


166730 


005232 


3$: INCB 


4$: SCOPE 
LINE =LINE +1 
BITX*BITX+BITX 


BYTCNT ,@DHBC 


#2, 30HBAR 
@DHSCR 

2$ 
@DHNRC RS 
R3,RDATA 
3$ 

@DHB AR 

2 


#2 ,3D0HBAR 
TA 


SDATAS \LINE,\BITX 


sSINGLE LINE DATA TEST 
s TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 2 
sLINE SPEED IS 9600 BAUD 
ae ete LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
: 

sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
sAT EACH CHARACTER LENGTH 


TS \KXN,1,48,18 
T43: 


048, ESCAPE 
#13,FREEZ1 


0B1T11,@0HSCR 
R4 





SEQ 53 


;DATA BUFFER 

3400 (COCTAL) BYTES 

;WILL BE TRANSMITTED 

;START TRANSMITTER 

sWAIT FOR DATA TO BE RECEIVED 


;GET RECEIVED DATA 
sCOMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
sDATA ERROR 


;CHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sINITIALIZE EXPECTED 
sRECEIVED DATA 
sUPDATA CHARACTER LENGTH 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 1 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 3 3 


sMASTER CLEAR INTERFACE 
sFIRST CHARACTER LENGTH CODE (5 BITS) 


LINE 2 WILL BE TESTED 


62,R5 $ 
#24400+100000, RDATA 


#4 ,R0 
#33500 ,R1 


;SET EXPECTED LINE NUMBER 

;AND VALID DATA FLAG 

sEXPECTED DATA 

s4CHARACTER LENGTHS 

sWILL BE TESTED 

sFIRST CHARACTER LENGTH =5 BITS,, 
sLINE SPEED =9600 BAUD 

340 CHARACTERS AT 5 BITS 


) - RTT ENG ES IRL ER EE 


CIOHF -CO 


©11130 
011134 
011140 
011142 


011146 
011154 
011162 


011242 
011244 
011246 
011252 
011254 
011256 


011260 


011260 
011260 
011266 
011274 


011302 


011310 
011316 
611320 
011324 
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010577 
016702 
005402 
910177 


012777 
016777 
012777 


105777 
100375 


012767 
012767 
012767 


012767 


012705 
012767 


005122 
005222 


005114 
016364 
005202 


000004 
005062 


005056 
005152 


005054 


000004 
005126 


005116 


005110 


000340 
000001 
011476 


011350 


004000 


000003 
101400 


005110 
005104 
005100 


005042 


166510 
005030 
005016 


005012 


004740 


005026 


1$: MOV 


2s: TSTB 


MO 
3$: INCB 


4$: SCOPE 


LINE =LINE +1 


BITX=BITX+BITX 


RS ,@DHSCR 
BYTCNT ,R2 
R2 


R1,@DHLPR 
@TBUF , 3DHBA 
BYTCNT ,@DHBC 


#4 ,,3DHBAR 
@DHSCR 

2$ 
QDHNRC RS 
R3,RDATA 
3$ 

@DHB AR 

2 


#4, 9DHBAR 
RDATA 

Re 

2$ 

RDATA 


R1 
R4 
BYTCNT 
RO 


1$ 


SDATAS \LINE,\BITX 


sSINGLE LINE DATA TEST 


eee << we ew eee ee ees 


SEQ 54 


;SELECT LINE 2 


;SET LINE SPEED AND 
sCHARACTER LENGTH 

sADDRESS OF TRANSMITTER 

sDATA BUFFER 

3400 COCTAL) BYTES 

;WILL BE TRANSMITTED 

sSTART TRANSMITTER 

;WAIT FOR DATA TO BE RECEIVED 


;GET RECEIVED DATA 
sCOMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


sCHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sINITIALIZE EXPECTED 
sRECEIVED DATA 
;UPDATA CHARACTER LENGTH 


; TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 3 


sLINE SPEED IS 9600 BAUD 


CHARACTER LENGTH MILL START AT 5 BITS AND BE INCREMENTED 
3A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 


sAT EACH CHARACTER LENGTH 
TS \¥N,1,4$,1$ 
44; MOV 


T 
MOV 


MOV 
IF NB <1$> 
MOV 


04%, ESCAPE 
$13, FREEZ1 


#BIT11,30HSCR 
R4 


#3,.R5 


LIN 
#34400+100000,RDATA 


sDISABLE ALL INTERRUPTS 
:SET UP FOR 1 ITERATIONS ‘ 
;SET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 


ee 
A 


sMASTER CLEAR INTERFACE 
sFIRST CHARACTER LENGTH CODE (5 BITS? 


E 3 WILL BE TESTED 


sSET EXPECTED LINE NUMBER 
sAND VALID DATA FLAG 


ENR SG GRE ne a 


CZ0HF -CO 


011332 
011336 


011342 
011350 
011354 
011360 
011362 


011366 
011374 


011402 
011410 
011414 
021416 
011422 
011426 
011430 
011434 
011434 
011436 
011440 
011446 
011452 
011454 
011456 


011462 
011464 
011466 
011472 
011474 
011476 


011500 


011500 
011500 
011506 
011514 


011522 
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012700 
012701 


012767 
010577 


010177 
012777 
016777 


012777 
105777 
100375 
017703 
020367 
001407 
005077 


104002 
104410 
012777 
105267 
005302 
001355 
105067 


012767 
012767 
012767 
012767 


000046 


000004 
033500 
177740 
004702 
005002 
004674 
016364 
004762 


000010 
004642 


004636 
004732 


004634 


000010 


004706 


004670 


004670 


011716 
011570 


005012 


004670 
004664 
004660 


004622 


166270 


MOV #4,R0 
MOV #33500,R1 
MOV ¢-40 ,BYTCNT 
1$: MOV RS ,@DHSCR 
MOV BYTCNT,R2 
NEG Re 
MOV R1,@DHLPR 
MOV #TBUF , SOHBA 
MOV BYTCNT ,@DOHBC 
MOV #10, @OHBAR 
2$: TSTB @DHSCR 
BPL 2$ 
MOV Q@DHNRC RS 
CMP R3,RDATA 
BEQ 3$ 
CLR @DHBAR 
HLT 2 
EMT 
SCOPE1 
MOV #10, @DHBAR 
3$: INCB RDATA 
DEC R2 
BNE 2$ 
CLRB RDATA 
INC Ri 
INC R4 
ASL BYTCNT 
DEC 
BNE i$ 
4$: SCOPE 
LINE =LINE +1 
BITX=BITX+BITX 
SDATAS \LINE, \BITX 


sSINGLE LINE DATA TEST 


sEXPECTED DATA 

s4CHARACTER LENGTHS 

;WILL BE TESTED 

sFIRST CHARACTFR LENGTH =5 BITS,, 
sLINE SPEED =40V0 BAUD 

3540 CHARACTERS AT 5 BITS 

;SELECT LINE 3 


;SET LINE SPEED AND 
;CHARACTER LENGTH 

sADDRESS OF TRANSMITTER 

;DATA BUFFER 

3400 (COCTAL) BYTES 

;sWILL BE TRANSMITTED 

;START TRANSMITTER 

;sWAIT FOR DATA TO BE RECEIVED 


;GET RECEIVED DATA 
sCOMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


sCHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sINITIALIZE EXPECTED 
sRECEIVED DATA 
sUPDATA CHARACTER LENGTH 


; TRANSMIT A BLOCK OF Pye COCTAL) CHARACTERS ON LINE 4 


;sLINE SPEED IS 9600 


BA 
; CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 


;10 8 BITS 


3A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 


;AT EACH CHARACTER LENGTH 
TS \KXN.1,4$,1$ 
: MOV 


T45 #340 ,PS 
MOV #1, ICOUNT 
MOV #4%$ , ESCAPE 
-1F NB <1$> 
MOV #1$,FREEZ1 
-ENDC 
XN=XNe1 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 1 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 


& nee en al 


OTT I A eT CS EE 8 eT ES 


SEQ 56 
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011530 012777 004000 004520 MOV #BIT11,@DHSCR ;MASTER CLEAR INTERFACE 
011536 005004 CLR R4 sFIRST CHARACTER LENGTH CODE (5 BITS) 
011540 012705 000004 MOV #4 ,R5 ;sLINE 4 WILL BE TESTED 
011544 012767 102000 004606 MOV #44400+10000uU,RDATA 
;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
;sEXPECTED DATA 
011552 012700 000004 MOV #4 ,RO ;4CHARACTER LENGTHS 
;WILL BE TESTED 
011556 012701 033500 MOV #33500 ,R1 sFIRST CHARACTER LENGTH =5 BITS,, 
;LINE SPEED =9600 BAUD 
011562 012767 177740 004572 MOV #-40, ,.BYTCNT 340 CHARACTERS AT 5S BITS 
011570 010577 004462 1$: MOV RS ,8DHSCR ;SELECT LINE 4 
011574 016702 004562 MOV BYTCNT ,R2 
011600 005402 NEG R? 
011602 010177 004454 MOV R1,@DHLPR ;SET LINE SPEED AND 
;CHARACTER LENGTH 
011606 012777 016364 004450 MOV #TBUF , ADHBA gogo TRANSMITTER 
; UFFER 
011614 016777 004542 004444 MOV BY TCNT , 8DHBC ;400 COCTAL) BYTES 
;WILL BE TRANSMITTED 
011622 012777 000020 004440 MOV #20, @DHBAR ;START TRANSMITTER 
011630 105777 004422 2$: TSTB @DHSCR ;sWAIT FOR DATA TO BE RECEIVED 
011634 100375 BPL 2$ 
011636 017703 004416 MOV QDHNRC , RS ;GET RECEIVED DATA 
011642 020367 004512 CMP R3,RDATA ;COMPER EXPECTED AND RECEIVED DATA 
011646 001407 BEQ 3$ 
011650 005077 004414 CLR SDHBAR ;STOP TRANSMITTER 
011654 HLT 2 ;sDATA ERROR 
011654 104002 T o 
011656 104410 SCOPE1 ;sCHECK FOR LOOP AT CURRENT SPEED 
011660 012777 000020 004402 V #20, BDHBAR sRESTART TRANSMITTER 
011666 105267 004466 3$: INCB RDATA ;UPDATA EXPECTED DATA 
011672 005302 DEC re 
011674 001355 BNE 2$ 
011676 105067 004456 CLRB RDATA sINITIALIZE EXPECTED 
sRECEIVED DATA 
011702 005201 INC Ri ;UPDATA CHARACTER LENGTH 
011704 005204 INC R 
011706 006367 004450 ASL BYTCNT 
011712 005300 DEC 0 
011714 001325 BNE i$ 
011716 104400 4$: SCOPE 
000005 LINE =LINE+1 
000040 BITX=BITX+BITX 
011720 SDATAS \LINE,\BITX 
:SINGLE LINE DATA TEST 
; TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 5 
sLINE SPEED IS 9600 BAUD 
ogg hr LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
; 
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
;AT EACH CHARACTER LENGTH 
911720 TS \XN,1,4$,1$ 
011720 012767 000340 166050 T46: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 


CZDHF -CO 


011726 
011734 


011742 


011750 
011756 
011760 
011764 


011772 
011776 


012002 
012010 
012014 
012020 
012022 


012026 
012034 


012042 
012050 
012054 
012056 
012062 
012066 
012070 
012074 
012074 
012076 
012100 
012106 
012112 
012114 
012116 


012122 
012124 
012126 
012132 
012134 
012136 


012140 
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012767 
012767 


012767 


000047 
012777 
005004 
012705 
012767 


012700 
012701 
012767 


010177 
012777 
016777 


012777 
105777 
100375 
017703 
020367 
001407 
005077 


104002 
104410 
012777 
105267 


000001 
012136 


012010 


004000 


000005 
102400 


000004 
033500 
177740 
004242 
004342 
004234 
016364 
004322 


000040 
004202 


004176 
004272 


004174 
000040 
004246 


004236 


004230 





004370 
004356 
004352 
004300 


004366 


004352 


004230 
004224 
004220 


004162 


-IF NB <1$> 
MOV #1$,FREEZ: 
.ENDC 
XN=XNeo1 
MOV #BIT11,3DHSCR 
CLR R4 
MOV #5,R5 ;LIN 
MOV #54%400+100000,RDATA 
MOV #4 ,R0 
MOV #33500,R1 
MOV #-40,BYTCNT 
i$: MOV RS ,8DHSCR 
MOV BYTCNT ,R2 
NEG R2 
MOV R1,3DHLPR 
MOV #TBUF , SDHBA 
MOV BY TCNT , 8OHBC 
MOV #40, HBAR 
2$: TSTB SDHSCR 
BPL 2s 
MOV SDHNRC RS 
CMP R3,RDATA 
BEQ 3$ 
CLR SDHBAR 
HLT 2 
EMT 
SCOPE1 
MOV #40, SOHBAR 
3$: INCB RDATA 
DEC R2 
BNE $$ 
CLRB RDATA 
INC Ri 
= INC R4 
ASL BYTCNT 
DEC RO 
BNE i$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SDATAS \LINE,\BITX 


MOV #1, I COUNT 
MOV #4$, ESCAPE 


sSINGLE LINE DATA TEST 





SEQ 57 


;SET UP FOR 1 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
sFIRST CHARACTER LENGTH CODE (5 BI7s) 


E 5 WILL BE TESTED 


sSET CarECTED LINE NUMBER 

sAND VALID DATA FLAG 

sEXPECTED DATA 

;4CHARACTER LENGTHS 

;WILL BE TESTED 

sFIRST CHARACTER LENGTH =5 BITS,, 
sLINE SPEED =9600 BAUD 

340 CHARACTERS AT 5 BITS 

sSELECT LINE 5 


;SET LINE SPEED AND 
sCHARACTER LENGTH 

sADDRESS OF TRANSMITTER 

sDATA BUFFER 

3400 COCTAL) BYTES 

sWILL BE TRANSMITTED 

;START TRANSMITTER 

sWAIT FOR DATA TO BE RECEIVED 


sGET RECEIVED DATA 
sCOMPER EXPECTED AND RECEIVED DATA 


sSTOP TRANSMITTER 
sDATA ERROR 


sCHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
;UPDATA EXPECTED DATA 


sINITIALIZE EXPECTED 
sRECEIVED DATA 
;UPDATA CHARACTER LENGTH 


; TRANSMIT A BLOCK OF 400 (COCTAL) CHARACTERS ON LINE 6 


sLINE SPEED IS 9600 BAUD 


sCHARACTER LENGTH WILL START AT S BITS AND BE INCREMENTED 


CZOHF -CO 


012140 
012140 
012146 
012154 


012162 


012170 
012176 
022200 
012204 


012212 
012216 


012222 
012230 
012234 
012240 
012242 


012246 
012254 


012262 
012270 
012274 
012276 
012302 
012306 
012310 
012314 
012314 
012316 
012320 
012326 
012332 
012334 
012336 


012342 
012344 
012346 
012352 
012354 
012356 
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012767 
012767 
012767 


012767 


012705 
012767 


012700 
012701 


012767 
010577 
016702 
005402 
010177 


012777 
016777 


012777 
105777 
100375 
017703 
020367 
001407 
005077 


104002 
104410 
012777 
105267 


000340 
000001 
012356 


012230 


004000 


000006 
103000 


000004 
033500 
177740 
004022 
004122 
004014 
016364 
004102 


000100 
003762 


003756 
004052 


003754 
000100 
004026 


004016 


004010 





165630 
004150 
004136 
004132 
004060 


004146 


004132 


004010 
004004 
004000 


003742 


;1T0 8 BITS 
3A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 


;AT EACH CHARACTER LENGTH 


TS \XN,1,4$,1$ 
T47: 


i$: MOV 


2s: TSTB 


MO 
33: INCB 


4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 


#340 ,PS 
#1, ICOUNT 
#4$, ESCAPE 


#1$,FREEZ1 


#B8IT11,80HSCR 
R4 


#6,R5 


$6%400+100000, RD 


#4 ,RO 
#33500 ,R1 
RS .@DHSCR 
BYTCNT ,R2 
R2 
R1,3DHLPR 


#TBUF , @DHBA 


SEQ 58 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 1 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA ; $ 


sMASTER CLEAR INTERFACE 
;sFIRST CHARACTER LENGTH CODE (5 BITS) 


sLINE 6 WILL BE TESTED 


;SET EXPECTED LINE NUMBER 

;AND VALID DATA FLAG 

sEXPECTED DATA 

s4CHARACTER LENGTHS 

;WILL BE TESTED 

sFIRST CHARACTER LENGTH =5 BITS,, 
;sLINE SPEED =9600 BAUD 

340 CHARACTERS AT 5 BITS 

sSELECT LINE 6 


;SET LINE SPEED AND 
sCHARACTER LENGTH 

sADDRESS OF TRANSMITTER 

;DATA BUFFER 

3400 COCTAL) BYTES 

;WILL BE TRANSMITTED 

sSTART TRANSMITTER 

sWAIT FOR DATA TO BE RECEIVED 


;GET RECEIVED DATA 
sCOMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


;CHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


s;INITIALIZE EXPECTED 
sRECEIVED DATA 
;UPDATA CHARACTER LENGTH 


nN OTE SS TS 
TS Le 


CZDHF -CO 


012360 


012360 
012360 
012366 
012374 


012402 
012410 
012416 


012420 
012424 


012432 
012436 
012442 
012450 
012454 
012460 
012462 
012466 


012474 
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012767 
012767 
012767 


012767 


012705 
012767 


012700 
012701 


012767 
010577 
016702 
005402 
010177 


012777 
016777 


012777 
105777 
100375 
017703 
020367 


000340 
000001 
012576 


012450 


004000 


000007 
103400 


000004 
033500 
177740 


165410 
003730 
003716 
003712 
003640 


003726 


003712 


003570 
003564 
003560 


003522 


SDATAS \LINE,\BITX 


sSINGLE LINE DATA TEST 
; TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 7 
sLINE SPEED IS 9600 BAUD 
{ee ae LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
;AT EACH CHARACTER LENGTH 


TS \XN,1 
T50: 


2$: 


3$: 


»4$,1$ 
M 


#340 PS 
#1, ICOUNT 
#4$, ESCAPE 


#1$,FREEZi 


#BIT11,@DHSCR 
R4 


#7,R5 ; 
#7%*400+100000,RDATA 


#4 ,RO 

#33500 ,Ri 
#-40 -BYTCNT 
RS ,8DHSCR 
BYTCNT ,R2 

R2 

R1.@DHLPR 
$TBUF , BDHBA 
BYTCNT , @DHBC 


SBOHNRC RS 
tient 


SEQ 59 


;DISABLE ALL INTERRUPTS 
sSET UP FOR 1 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
sFIRST CHARACTER LENGTH CODE (5 BITS) 


LINE 7 WILL BE TESTED 


sSET EXPECTED LINE NUMBER 

s;AND VALID DATA FLAG 

;EXPECTED DATA 

s4CHARACTER LENGTHS 

;WILL BE TESTED 

sFIRST CHARACTER LENGTH =5 BITS,. 
sLINE SPEED =9600 BAUD 

340 CHARACTERS AT 5 BITS 

;SELECT LINE 7 


sSET LINE SPEED AND 
:CHARACTER LENGTH 

sADDRESS OF TRANSMITTER 

:DATA BUFFER 

3400 COCTAL) BYTES 

;WILL BE TRANSMITTED 

;START TRANSMITTER 

;WAIT FOR DATA TO BE RECEIVED 


;GET RECEIVED DATA 
;COMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


:;CHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
;UPDATA EXPECTED DATA 


sINITIALIZE EXPECTED 
sRECEIVED DATA 
sUPDATA CHARACTER LENGTH 


CZDHF -CO 


012566 
012572 
012574 
012576 


012600 


012614 
012622 


012630 


012714 


012722 
012730 
012734 
012736 
012742 
012746 
012750 
012754 
012754 
012756 
012760 
012766 


SEQ 60 


MACRO VO4.00 27-JUN-85 12:59:01 PAGE 19-36 


006367 


012767 
012767 
012767 


012767 


012705 
012767 


012700 
012701 
012767 
010577 
010177 
012777 
016777 
012777 


105777 
100375 


000340 
000001 
013016 


012670 


004000 


000010 
104000 





165170 
003510 
003476 
003472 
003420 


003506 


003472 


003302 





ASL BYTCNT 

DEC RO 

BNE 1$ 
4$: SCOPE 
LINE=LINE+1 
BITX=BITX+BITX 


SDATAS \LINE,\BITX 


sSINGLE LINE DATA TEST 

; TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 10 
;LINE SPEED IS 9600 BAUD 

ce y is LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
. 

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 

SAT EACH CHARACTER LENGTH 


TS \XN,1,4$,18 


TS1: MOV #340,PS sDISABLE ALL INTERRUPTS 





MOV #1, ICOUNT ;SET UP FOR 1 ITERATIONS 
— oor #4$, ESCAPE ;SET UP T0 ESCAPE TO NEXT TEST 
<i$> 
MOV #1$,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel1 
MOV #68IT11,3DHSCR sMASTER CLEAR INTERFACE 
CLR R4 ;FIRST CHARACTER LENGTH CODE (5 BITS) 
MOV #10,R5 ;LINE 10 WILL BE TESTED 
MOV #10%400+100000 ,RDATA 
;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
sEXPECTED DATA 
MOV $4,RO0 ;4CHARACTER LENGTHS 
;sWILL BE TESTED 
MOV #33500 Ri ;FIRST CHARACTER LENGTH =5 BITS., 
;LINE SPEED =9600 BAUD 
MOV #-40 .,BYTCNT 740 gy ge AT 5 SITS 
i$: MOV R5, SDHSCR sSELECT LINE 1 
MOV BYTCNT, R2 
NEG R2 
MOV R1, SDHLPR 
MOV #TBUF , @DHBA 
MOV BSYTCNT , BOHBC 
MOV $400 , SDHBAR TTER 
2$: ig — ;WALT FOR DATA TO BE RECEIVED 
MOV SDHNAC RS :GET RECEIVED DATA 
yA ee ;COMPER EXPECTED AND RECEIVED DATA 
CLR SOHBAR ;STOP TRANSMITTER 
al 2 :DATA ERROR 
SCOPE1 ;CHECK FOR LOOP AT CURRENT SPEED 
MOV #400 , SOHBAR ;sRESTART TRANSMITTER 
3$: INCB RDATA sUPDATA EXPECTED DATA 


CZDHF -CO 


012772 
012774 
012776 


913002 
013004 


013020 


013020 
013020 
013026 
013034 


013042 


013050 
013056 
013060 
013064 


013072 
013076 


013102 
013110 
013114 
013120 
013122 


013126 
013134 


013142 
013150 
013154 
013156 
013162 
013166 


SEQ 61 
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005302 
001355 
105067 


012767 
012767 
012767 


012767 


000053 
012777 
005004 
012705 
012767 


012700 
012701 
012767 
010577 
010177 
012777 
016777 
012777 
105777 
100375 
017703 


020367 
001407 


003356 


003350 


013236 
013110 


904000 


000011 
104400 


164750 
003270 
003256 


003252 


003200 


003266 


003252 


003130 
603124 
003120 


DEC Re 
BNE 2$ 
CLRB RDATA ; INITIALIZE EXPECTED 
;sRECEIVED DATA 
INC Ri ;UPDATA CHARACTER LENGTH 
INC R4 
ASL BYTCNT 
DEC 
BNE 1$ 
4$; SCOPE 
LINE=LINE+1 
BITX=BITX+BITX 


SDATAS \LINE,\BITX 


;SINGLE LINE DATA TEST 

; TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 11 
sLINE SPEED IS 9600 

Coy pty LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
; 

3A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 

;AT EACH CHARACTER LENGTH 


TS \XN,1,4$,1$ 
V 


TS2: MO #340 ,PS ;sDISABLE ALL INTERRUPTS 
MOV #1, ICOUNT ;SET UP FOR 1 ITERATIONS 
‘se 41 4%, ESCAPE :SET UP TO ESCAPE TO NEXT TEST 
<1$> 
nine MOV #1$,FREEZ! ;SET UP TO LOOP WITH DATA = 
XN=XNe1 
MOV #B8IT11,8DHSCR sMASTER CLEAR INTERFACE 
CLR R& sFIRST CHARACTER LENGTH CODE (5 BITS) 
MOV #11,R5 sLINE 11 WILL BE TESTED 
MOV #112400+160000 ,RDATA 
;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
sEXPECTED DATA 
MOV $4 ,RO s4CHARACTER LENGTHS 
;sWILL BE TESTED 
MOV #33500 ,R1 ;FIRST CHARACTER LENGTH =5 BITS... 
;LINE SPEED =9600 BAUD 
MOV $-40 ,BYTCNT 340 CHARACTERS AT 5 BITS 
1$: MOV R5,. R sSELECT LINE 11 
MOV BYTCNT ,R2 
NEG Re 
MOV Ri, SDHLPR ;SET LINE SPEED AND 
;CHARACTER LENGTH 
MOV @TBUF . SDHBA ;ADDRESS OF TRANSMITTER 
;DATA BUFFER 
MOV BYTCNT , 3DHBC 3400 COCTAL) BYTES 
;sWILL BE TRANSMITTED 
MOV #1000, SDHBAR :START TRANSMITTER 
2$: Ag “Sac ;WAIT FOR DATA TO BE RECEIVED 
MOV @DHNRC ,R3 ;GET RECEIVED DATA 
SA — ;COMPER EXPECTED AND RECEIVED DATA 





CZDHF -CO 


013170 
013174 
013174 
013176 
013200 
01320¢ 
013212 
013214 
013216 


013222 
013224 
013226 
013232 
013234 
013236 


013240 


013240 
013240 
013246 
013254 


013262 
013270 
013276 


013300 
013304 


013312 
013316 
013322 
013330 
013334 
013340 
013342 
013346 


013354 
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005077 
104002 
104410 
012777 
105267 
005302 
001355 
105067 


005201 


012767 
012767 
012767 


012767 


012705 
012767 


012700 
012701 
012767 


010177 
012777 
016777 


003074 


001000 
003146 


003136 


003130 


013330 


004000 


000012 
105000 


000004 
033500 
177740 
002722 
003022 
002714 
016364 


003002 





003062 


003032 


002710 
002704 


CLR @DHBAR 
HLT 2 
EMT ? 
SCOPE1 
MOV #1000, @DHBAR 
3$: INCB RDATA 
DEC R2 
BNE 2$ 
CLRB RDATA 
INC Ri 
INC R4 
ASL BYTCNT 
DEC RO 
BNE 1$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 


SDATAS \LINE,\BITX 
;SINGLE LINE DATA TEST 


SEQ 62 


;STOP TRANSMITTER 
;DATA ERROR 


sCHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
;UPDATA EXPECTED DATA 


s;INITIALIZE EXPECTED 
sRECEIVED DATA 
sUPDATA CHARACTER LENGTH 


; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 12 


sLINE SPEED IS 9600 BAUD 


;CHARACTER LENGTH WILL START AT 5S BITS AND BE INCREMENTED 


;10 8 BITS 


sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 


;AT EACH CHARACTER LENGTH 


TS \XN,1,4$,1$ 
TS3: MOV #340 ,PS 


MOV #1, ICQUNT 
MOV #43, ESCAPE 
IF NB <1$> 
MOV #1$,FREEZ1 
-ENDC 
XN=XNel 
MOV @BIT11,9DHSCR 
CLR R4 
MGV #12,R5 
MOV #122%400+ 100000 ,RDATA 
MOV #4 RO 
MOV #33500 .R1i 
MOV @-40 ,BYTCNT 
i$: MOV RS, @DHSCR 
MOV BYTCNT, R2 
NEG R2 
MOV R1,8DHLPR 
MOV STBUF , GDHBA 
MOV 


BYTCNT , @DHBC 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 1 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 


we 
WN 


sMASTER CLEAR INTERFACE | 
sFIRST CHARACTER LENGTH CODE (5 BITS) 


;LINE 12 WILL BE TESTED 


sSET EXPECTED LINE NUMBER 

;AND VALID DATA FLAG 

sEXPECTED DATA 

s4CHARACTER LENGTHS 

sWILL BE TESTED 

sFIRST CHARACTER LENGTH =5 BITS.. 
sLINE SPEED =9600 BAUD 

340 CHARACTERS AT 5S BITS 

sSELECT LINE 12 


;SET LINE SPEED AND 
sCHARACTER LENGTH 
;ADDRESS OF TRANSMITTER 
sDATA BUFFER 

3400 COCTAL) BYTES 
sWILL BE TRANSMITTED 


SEQ 63 
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013362 012777 002000 002700 MOV #2000, @OHBAR ;START TRANSMITTER 
013370 105777 002662 2$: TSTB @DHSCR sWAIT FOR DATA TO BE RECEIVED 
013374 100375 BPL 2$ 
013376 017703 002656 MOV SDHNRC ,RS ;GET RECEIVED DATA 
013402 020367 002752 CMP R3,RDATA ;COMPER EXPECTED AND RECEIVED DATA 
013406 001407 BEQ 3$ 
013410 005077 002654 CLR SDHBAR ;STOP TRANSMITTER 
013414 HLT 2 sDATA ERROR 
013414 104002 EMT 2 
013416 104410 SCOPE1 s;CHECK FOR LOOP AT CURRENT SPEED 
013420 012777 002000 002642 MOV #2000, @DHBAR sRESTART TRANSMITTER 
013426 105267 002726 3$: INCB RDATA sUPDATA EXPECTED DATA 
013432 005302 DEC Re 
013434 001355 BNE 2$ 
013436 105067 002716 CLRB RDATA ;INITIALIZE EXPECTED , 
sRECEIVED DATA 
013442 005201 INC Ri sUPDATA CHARACTER LENGTH 
013444 005204 INC R4 
013446 006367 002710 ASL BYTCNT 
013452 005300 DEC RO 
013454 001325 BNE 13 
013456 104400 4$: SCOPE 
000013 LINE =LINE+1 
004000 BITX=BITX+BITX 
013460 SDATAS \LINE, \BITX 


sSINGLE LINE DATA TEST 

; TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 13 
sLINE SPEED IS 9600 BAUD 

: CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
a 

3A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 

sAT EACH CHARACTER LENGTH 


013460 TS \XN,1,4$,1$ 
013460 012767 000340 164310 154: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
013466 012767 000001 %02630 MOV #1, ICOUNT :SET UP FOR 1 ITERATIONS 
013474 012767 013676 002616 ioe ian poy 04% ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
é <i$> 
013502 012767 013550 002612 ce MOV $1$,FREEZ1 ;SET UP TO LOOP WITH DATA s 3 
000055 XN=XNei 
013510 012777 004000 002540 MOV #68IT11,8DHSCR :MASTER CLEAR INTERFACE 
013516 005004 CLR Ra sFIRST CHARACTER LENGTH CODE (5 BITS) 
013520 012705 000013 MOV #13,R5 ;LINE 13 WILL BE TESTED 
013524 012767 105400 002626 MOV #134400+ 100000 ,RDATA 
| ;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
: sEXPECTED DATA 

013532 012700 000004 MOV #4,R0 ;4CHARACTER LENGTHS 

;WILL BE TESTED 
013536 012701 033500 MOV #33500 ,R1i ;FIRST CHARACTER LENGTH =5 BITS... 

:LINE SPEED =9600 BAUD 
013542 012767 177740 002612 MOV #-40 ,BYTCNT 740 CHARACTERS AT 5 BITS 
013550 010577 002502 i$: MOV R5 ,@DHSCR ;SELECT LINE 13 
013554 016702 002602 MOV BYTCNT ,R2 
013560 005402 NEG R2 


ERE CLIENTS LIT I TE OCI AI LTTE as 
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013562 
013566 
013574 


013700 
013700 
013706 
013714 


013722 
013730 
013736 


013740 
013744 


013752 


OO 





SEQ 64 
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010177 
012777 
016777 
012777 


012767 
012767 
012767 


012767 


012705 
012767 


0127090 


002474 
016364 
002562 


004000 
002442 


002436 
002532 


002434 


004000 
002506 


002476 


002470 


000340 
000001 
014116 
013770 


004000 


000014 
106000 


000004 





002470 
002464 
002460 


002422 


164070 
002410 
002376 


002372 


002320 


002406 


MOV R1,9D0HLPR s;SET LINE SPEED AND 
sCHARACTER LENGTH 
MOV #TBUF , 8OHBA ;ADDRESS OF TRANSMITTER 
;DATA BUFFER 
MOV BYTCNT , @OHBC 5400 COCTAL) BYTES 
;WILL BE TRANSMITTED 
MOV #4000, SDHBAR s;START TRANSMITTER 
2$: i _— sWAIT FOR DATA TO BE RECEIVED 
MOV @OHNRC RS ;GET RECEIVED DATA 
id —_—— sCOMPER EXPECTED AND RECEIVED DATA 
CLR @DHB AR sSTOP TRANSMITTER 
a 2 ;DATA ERROR 
SCOPE1 sCHECK FOR LOOP AT CURRENT SPEED 
MOV #4000, SDHBAR sRESTART TRANSMITTER 
3$: INCB RDAT sUPDATA EXPECTED DATA 
DEC R? 
BNE 2s 
CLRB RDATA sINITIALIZE EXPECTED 
sRECEIVED DATA 
INC Ri sUPDATA CHARACTER LENGTH 
INC R4 
ASL BYTCNT 
DEC 
BNE i$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 


SDATAS \LINE,\BITX 


sSINGLE LINE DATA TEST 
; TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 14 


sLINE SPEED IS 9600 BAUD 
i CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
; 


3A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
sAT EACH CHARACTER LENGTH 


TS \XN,1,4$,1$ 
MOV 61 ,ICOUNT 


:;DISABLE ALL INTERRUPTS 
sSET UP FOR 1 ITERATIONS 


ost yo 64%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
: <1$> 
MOV 61% ,FREEZ1 ;SET UP TO LOOP WITH DATA : 3 
.ENDC 
XN=XNe 1 
MOV @B1IT11 ,@DHSCR sMASTER CLEAR INTERFACE 
CLR RS sFIRST CHARACTER LENGTH CODE (5S BITS) 
MOV #14,R5 og 14 WILL BE TESTED 
MOV $144400+ 100000, RDATA 
sSET EXPECTED LINE NUMBER 
:AND VALID DATA FLAG 
7E DATA 
MOV 64 ,RO ;4CHARACTER LENGTHS 


sWILL BE TESTED 





CZDHF -CO 


013756 


013762 
013770 
013774 
014000 
014002 


014006 
014014 


014114 
014116 


014120 


014120 
014120 
014126 
014134 


014142 
014150 


014156 
014160 
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012701 
012767 


010177 
012777 
016777 


012777 
105777 


012767 
012767 
012767 
012767 


000057 
012777 
005004 


012705 


033500 
177740 
002262 
002362 
002254 
016364 
002342 


010000 
002222 


002216 
002312 


002214 


010000 
002266 


002256 


002250 


000340 
000001 
014336 


014210 


004000 
000015 


002372 


002250 
002244 
002240 


002202 


163650 
002170 
002156 


002152 


002100 











MOV #33500,R1 
MOV #-40 ,BYTCNT 
i$: MOV RS ,@DHSCR 
MOV BYTCNT ,R2 
NEG R2 
MOV R1,8DHLPR 
MOV @TBUF , SOHBA 
BY TCNT , 8@OHBC 
#10000 , 8BOHBAR 
2$: - 
@DHNRC ,R3 
R3,RDATA 
3$ 
@OHBAR 
z . 
#10000 , 3DHBAR 
3$: RDATA 
R2 
2$ 
ROATA 
Ri 
RE 
BYTCNT 
RO 
is 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SDATAS \LINE, \GITX 





sSINGLE LINE DATA TEST 
A BLOCK OF 400 (GCTAL) CHARACTERS ON LINE 15 


3; TRANSMIT 
sLINE 








SEQ 65 


sFIRST CHARACTER LENGTH +5 BITS,, 
;LINE SPEED *9600 BAUD 

340 CHARACTERS AT 5 BITS 

;SELECT LINE 14 


;SET LINE SPEED AND 
sCHARACTER LENGTH 

sADDRESS OF TRANSMITTER 

;DATA BUFFER 

3400 COCTAL) BYTES 

;WILL BE TRANSMITTED 

sSTART TRANSMITTER 

sWAIT FOR DATA TO BE RECEIVED 


sGET RECEIVED DATA 
sCOMPER EXPECTED AND RECEIVED DATA 


sSTOP TRANSMITTER 
s;DATA ERROR 


sCHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sINITIALIZE EXPECTED 
sRECEIVED DATA 
;UPDATA CHARACTER LENGTH 


SPEED IS 9600 
sCHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 





;7T0 8 BITS 
3A BLOCK OF 400 





TS \XN,1,48,1% 
: M0 





T56: IV 

MOV 

MOV o4$ ESCAPE 
IF NB <1$> 

MOV #1$,FREEZ1 
-ENDC 
XN*XNol 

MOV 68IT11,@DHSCR 

CLR RG 

MOV #15,R5 





CHARACTERS WILL BE TRANSMITTED 
SAT EACH CHARACTER LENGTH 








sDISABLE ALL INTERRUPTS 
sSET UP FOR 1 ITERATIONS 
sSET UP TO ESCAPE 70 NEXT TEST 


:SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
sFIRST CHARACTER LENGTH CODE (5S BITS) 
sLINE 15 ‘WILL BE TESTED 





DHF -CO 


014164 


014172 
014176 
014202 
014210 
014214 
014220 
014222 
014226 
014234 


014242 


014316 
014322 


014340 


014340 
014340 
014346 
014354 
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012767 106400 002166 


012700 
012701 


012767 
010577 


005402 
010177 
012777 


016777 


012777 
105777 
100375 
017703 
020367 
001407 
005077 


104002 


012767 
012767 
012767 


000340 163430 157: 


000001 


002152 


002030 
002024 
002020 


001762 


001750 


014556 001736 


a SSRs 





MOV #152400+100000.RDATA 
MOV #4 RO 
MOV €33500,R1 
MOV @-40,BYTCNT 
1$: MOV RS, @DHSCR 
MOV BYTCNT, RO 
NEG R2 
MOV R1,8DHLPR 
MOV #TBUF , BOHBA 
MOV BYTCNT ,@DHBC 
MOV #20000 , 3DHBAR 
2s: TSTB @DHSCR 
BPL 2$ 
MOV @DHNRC ,R3 
CMP R3,RDATA 
BEQ 3$ 
CLR @DHBAR 
HLT 2 
EMT 
SCOPE1 
MOV #20000 . AOHBAR 
3$: INCB RDATA 
DEC Re 
BNE es 
CLRB RDATA 
INC Ri 
INC R4 
ASL BY TCNT 
DEC RO 
BNE i$ 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SDATAS ‘LINE, \BITX 


sSINGLE LINE DATA TEST 


SEQ 66 


;SET EXPECTED LINE NUMBER 

;AND VALIO DATA FLAG 

sEXPECTED DATA 

;4CHARACTER LENGTHS 

;WILL BE TESTED 

sFIRST CHARACTER LENGTH «5 BITS,, 
;LINE SPEED =9600 BAUD 

740 CHARACTERS AT 5 BITS 

;SELECT LINE 15 


sSET LINE SPEED AND 
sCHARACTER LENGTH 

;ADDRESS OF TRANSMITTER 

sDATA BUFFER 

3400 COCTAL) BYTES 

;WILL BE TRANSMITTED 

sSTART TRANSMITTER 

;WAIT FOR DATA TO BE RECEIVED 


sGET RECEIVED DATA 
;COMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


sCHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sINITIALIZE EXPECTED 
sRECEIVED DATA 
sUPDATA CHARACTER LENGTH 


s TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 16 
9600 BAUD 


sLINE SPEED IS 


sCHARACTER LENGTH WILL START AT S BITS AND BE INCREMENTED 


;T0 8 BITS 
sA BLOCK OF 
;AT EACH CHARACTER LENGTH 


TS \XN,1,4$,1$ 
MOV 


#340,PS 
MOV #1, ICOUNT 
MOV #43 ,ESCAPE 
IF NB <1$> 


400 CHARACTERS WILL BE TRANSMITTED 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 1 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


Co URMF-CO 


014362 


014370 
014376 


014412 
014416 


014422 
014430 
014434 
014440 
014442 


01444€ 
014454 


014462 
014470 
014474 
014476 
014502 
014506 
014510 
014514 
014514 
014516 
014520 
014526 
014532 
014534 
014536 


014542 
014544 
014546 
914552 
014554 
014556 


014560 


He 
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012767 


000060 
012777 
005004 
0127C5 
012767 


012700 
012701 


012767 
010577 


010177 
012777 
016777 


012777 
105777 
100375 
017703 
020367 
001407 
005077 


104002 
104410 
012777 
105267 
005302 
001355 
105067 


014430 


004000 


000016 
107000 


000004 
033500 
177740 
001622 
001722 
001614 
016364 
001702 


040000 
001562 


001556 
001652 


001554 


040000 


001626 


001616 


001610 


001732 


001660 


001746 


001732 


001610 
001604 
001600 


001542 


MOV #1$,FREEZi 
-ENDC 
XN=XNel 
MOV #B1T11,@DHSCR 
CLR R4 
MOV #16,R5 
MOV #164#400+100000,RDATA 
MOV #4 ,RO 
MOV #33500 ,R1 
MOV #-40 ,BYTCNT 
MOV BYTCNT ,R2 
NEG R2 
MOV R1,@0HLPR 
MOV @TBUF , 3OHBA 
MOV BY TCNT , @DHBC 
MOV #40000 , BDHBAR 
2s: TSTB @DHSCR 
BPL 2$ 
MOV @DHNRC ,R3 
CMP R3,RDATA 
BEQ 3$ 
CLR @OHBAR 
HLT 2 
EMT 
SCOPE1 
MOV #40000 , ADHBAR 
3$: INCB RDATA 
DEC R2 
BNE 2$ 
CLRB RDATA 
INC Ri 
INC R4 
ASL BYTCNT 
DEC RO 
BNE is 
4s: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SDATAS \LINE,\BITX 





;SINGLE LINE DATA TEST 


;SET UP TO LOOP WITH DATA ; 


sMASTER CLEAR INTERFACE 
sFIRST CHARACTER LENGTH CODE (5 BITS) 
sLINE 16 WILL BE TESTED 


sSET EXPECTED LINE NUMBER 

sAND VALID DATA FLAG 

sEXPECTED DATA 

s4CHARACTER LENGTHS 

;sWILL BE TESTED 

sFIRST CHARACTER LENGTH <5 BITS,, 
sLINE SPEED =9600 BAUD 

340 CHARACTERS AT 5 BITS 

sSELECT LINE 16 


;SET LINE SPEED AND 
;CHARACTER LENGTH 

sADDRESS OF TRANSMITTER 

sDATA BUFFER 

5400 COCTAL) BYTES 

sWILL BE TRANSMITTED 

;START TRANSMITTER 

sWAIT FOR DATA TO BE RECEIVED 


sGET RECEIVED DATA 
sCOMPER EXPECTED AND RECEIVED DATA 


;STOP TRANSMITTER 
;DATA ERROR 


;CHECK FOR LOOP AT CURRENT SPEED 
sRESTART TRANSMITTER 
sUPDATA EXPECTED DATA 


sINITIALIZE EXPECTED 
sRECEIVED DATA 
sUPDATA CHARACTER LENGTH 


TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 17 


sLINE SPEED IS 9600 BAUD 


;CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 


;10 8 BITS 


sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 


;AT EACH CHARACTER LENGTH 


CZ0OHF -CO 


43 


014560 
014560 
014566 
014574 


014602 


014610 
014616 
014620 
024624 


014632 
014636 


014642 
014650 
014654 
014660 
014662 


014666 
014674 


014702 
014710 
014714 
014716 
014722 
014726 
014730 
014734 
014734 
014736 
014740 
014746 
014752 
914754 
014756 


014762 
014764 
014766 
014772 
014774 
014776 


SEQ 68 
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012767 
012767 
012767 


012767 


012705 
012767 


012790 
012701 


012767 
010577 
016702 
005402 
010177 


012777 
016777 


012777 
105777 
100375 
017703 
020367 
001407 
005077 


104002 
104410 
012777 
105267 


014776 
014650 


004000 


000017 
107400 


000004 
033500 
177740 
001402 
001502 
001374 
016364 
001462 


100000 
001342 


001336 
001432 


001334 


100000 


001406 


001376 


001370 


163210 
00153¢ 
001516 
001512 
001440 


001526 


001512 


001370 
001364 
001360 


001322 


TS \KN,1,43,1$ 
T60: 


MOV 
MOV 
MOV 
.IF NB <1$> 
MOV 
.ENDC 
XN=XNel 
MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
i$: MOV 
MOV 
NEG 
MOV 
MOV 
2$: 
3$: 
BNE 
43: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
XDATA=0 





#340,PS sDISABLE ALL INTERRUPTS 

#1, I COUNT sSET UP FOR 1 ITERATIONS 

04$, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
#1$,FREEZ1 ;SET UP TO LOOP WITH DATA ; Ss 
#31T11,8DHSCR sMASTER CLEAR INTERFACE 

F.4 sFIRST CHARACTER LENGTH CODE (5 BITS) 
#17,R5 sLINE 17 WILL BE TESTED 


#174400+100000 ,RDATA 
;SET EXPECTED LINE NUMBER 
;AND VALID DATA FLAG 
sEXPECTED DATA 


#4 ,RO ;4CHARACTER LENGTHS 
;sWILL BE TESTED 
#33500 ,R1 sFIRST CHARACTER LENGTH =5 BITS,, 
;sLINE SPEED =9600 BAUD 
#-40 .BYTCNT 340 CHARACTERS AT 5 BITS 
RS ,@DHSCR ;sSELECT LINE 17 
on 
R1,3DHLPR ;SET LINE SPEED AND 
;CHARACTER LENGTH 
#TBUF , ADHBA ;ADDRESS OF TRANSMITTER 
;sDATA BUFFER 
BYTCNT , @DHBC :400 COCTAL) BYTES 
;sWILL BE TRANSMITTED 
#100000, @DHBAR ;START TRANSMITTER 
— ;sWAIT FOR DATA TO BE RECEIVED 
@DHNRC ,R3 ;GET RECEIVED DATA 
—e ;COMPER EXPECTED AND RECEIVED DATA 
SOHBAR ;STOP TRANSMIITER 
a ;DATA ERROR 
;CHECK FOR LOOP AT CURRENT SPEED 
#100000 , SDHBAR sRESTART TRANSMITTER 
la ;UPDATA EXPECTED DATA 
2$ 
RDATA sINITIALIZE EXPECTED 
sRECEIVED DATA 
a4 ;UPDATA CHARACTER LENGTH 
BYTCNT 
RO 
1$ 





SEQ 69 
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1 
2 015000 EOP t/BEGIN/ 

sEND OF PASS 

;sTYPE NAME OF TEST 

;UPDATE PASS COUNT 

sCHECK FOR EXIT TO ACT-11 

sRESTART TEST | 
015000 104401 EOP: TYPE ;sTYPE NAME OF TEST 
015002 017347 MEPASS 
015004 005067 001344 CLR LAST ;CLEAR LAST ERROR PC 
025010 005067 001274 CLR ERRFLG sCLEAR ERROR FLAG 
015014 005267 001272 INC PASCNT sUPDATE PASS COUNT 
015020 005767 163756 TST LIGHTS ; ARE WE USING LIGHTS? ; 4 
015024 001005 BNE 2$ ; BRANCH IF WE ARE .¢ 
015026 104401 TYPE ; TYPE PASCOUNT MESSAGE ; 5 
015030 017362 PASTXT _* 
015032 104402 OCTASC ; PRINT PASSCOUNT . 
015034 015072 PASARG tad 
015036 000403 BR 3$ ; CONTINUE . 4 
015040 016767 001246 163734 ae MOV PASCNT ,LIGHTS ;DISPLAY PASS COUNT 

: ; & 

015046 013701 000042 MOV @042 Ri ;CHECK FOR ACT-11 OR DDP 
015052 001405 BEQ RESTRT ;IF NOT, CONTINUE TESTING 
015054 000005 RESET 
015056 004711 LOGICAL: JSR PC,C(R1) 
015060 000240 NOP 
015062 000240 NOP 
015064 000240 NOP 
015066 000167 164214 RESTRT: JMP BEGIN 
015072 000001 PASARG: .WORD i ; PARAMETERS TO PRINT PASSCOUNT =; 
015074 006 002 BYTE 6,2 
015076 016312 .WORD PASCNT 
015100 . SCOPE 

;CHECK FOR LOOP ON CURRENT TEST 

;CHECK FOR ITERATION SUPPRESSION 
015100 032777 002000 163672 SCOPER: BIT #SW10, 8SWR 
015106 001030 BNE 43 
015110 032777 040000 163662 13: BIT #SW14,8SWR 
015116 001021 BNE 3$ 
015120 032777 004000 163652 BIT #SW11,SWR 
015126 001006 BNE 2$ 
015130 005267 001172 INC LPCNT 
015134 026767 001166 001162 CMP LPCNT, ICOUNT 
015142 001007 BNE 3$ 
015144 005067 001156 2$: CLR LPCNT 
015150 005067 001134 CLR ERRFLG 
015154 011667 001136 MOV (SP) ,RETRN 
015160 000002 RTI 
015162 016716 001130 3$: MOV RETRN, (SP) 
015166 000002 RTI 
015170 005767 001114 4$: TST ERRFLG 
015174 001745 BEQ 1$ 





CZOHF -CO 


-— 


015176 
4 915200 


015200 
015206 
015210 
015214 
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000762 


032777 
001402 
016716 
000002 


2$ 
. SCOP1 
s;CHECK FOR FREEZE ON CURRENT DATA 
001000 163572 SCOPiR: ad a 
001106 MOV FREEZ1,(SP) 
1$: RTI 





ll as ei a Ee 
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1 015216 


LO OE LLL 
ooo 
iP 
Wwvuiuvi 
ag 
ORS 
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032777 





ERROR 


020000 163554 ERRORS: 
001122 


001114 
001044 
1$: 


000002 


177001 


TYPMSG: 


000001 000754 


000010 


163414 HALTS: 
000002 

000710 EXITER: 
002000 163366 

000700 


002 


sERROR HANDLER 


#SW13,9SWR 
HALTS 
(SP),LAST 
i$ 


CSP),LAST 
ERRFLG 


R4 

#177001,R4 

#ERRTAB ,R4 

(R4)+, ERRMSG 
CR4),.DATABP 

ERRFLG 

TYPMSG 

DATABP 

TYPDAT : 


#1,ERRFLG 


DATABP 
RESREG 


SSWR 
EXITER 


2(SP),RO 


ERRCNT 
pace 
ESCAPE , CSP) 


6,2 


SEQ 71 


VIUI UI 





CZDHF -CO MACRO VO4.00 27-JUN-85 12:59:01 PAGE 22 
015430 . TRPSRV 
;TRAP DISPATCH SERVICE 
;ARGUMENT OF TRAP IS EXTRACTED 
;AND USED AS OFFSET TO OBTAIN POINTER 
;TO SELECTED SUBROUTINE 
015430 011646 i:RPSRV: MOV CSP),-CSP) sGET PC OF RETURN 
015432 162716 000002 SUB #2 ,( SP) ;=PC OF TRAP 
015436 017616 000000 MOV @CSP), CSP) ;GET TRP 
015442 006316 TRPOK: ASL (SP) sMULTIPLY TRAP ARG BY 2 
015444 042716 177001 BIC #177001, (SP) ;CLEAR UNWANTED BITS 
015450 062716 017422 ADD #TRPTAB, CSP) sPOINTER TO SUBROUTINE ADDRESS 
015454 017616 000000 MOV OC SP), CSP) sSUBROUTINE ADDRESS 
015460 000136 JMP GC SP )+ ;GO TO SUBROUTINE 
015462 . SAVREG 
sSAVE PC OF TEST THAT FAILED AND RO-RS5 
015462 016667 009504 000656 SVO5P: MOV 4(SP),SAVPC 
sSAVE RO-RS 
015470 010567 000646 SVOS: MOV RS ,SAVRS 
015474 010467 000640 MOV R4,SAVR4 
015500 010367 000632 MOV R3,SAVR3 
015504 010267 000624 MOV R2,SAVR2 
015510 010167 000616 MOV R1,SAVR1i 
015514 010067 000610 MOV RO,SAVRO 
015520 000002 RTI 
015522 -RESREG 
sRESTORE RO-RS5 
015522 016700 000602 RSOS: MOV SAVRO, RO 
015526 016701 000600 MOV SAVR1,R1 
015532 016702 000576 MOV SAVR2,R2 
015536 016703 000574 MOV SAVR3,R3 
015542 016704 000572 MOV SAVR4 ,R4 
015546 016705 000570 MOV SAVRS,RS 
015552 000002 RTI 
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1 015554 


015554 
015560 
015564 
015570 
015572 
015574 
015576 
015600 
015604 
2 015606 
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017605 


017667 
062716 
104401 
000000 
012704 
012703 
105777 
100375 
117714 
142714 
122427 
001413 
117777 
105777 
100375 
005303 
001356 
104401 
017253 
000745 
000002 


000000 
000002 
000462 


000450 


000000 
000002 


017444 
000007 
000406 


000402 
000200 
000015 


000364 
000360 


000006 


000366 


. TYPER 


TYPER: 
1$: 


2s: 


. INSTRG 


INSTRG: 
INSTR1: 


MSG: 


i$: 


2$: 


INSTRE: 


sTELETYPE OUTPUT ROUTINE 


@CSP),R5 
#2, (SP) 
QTPCSR 
1$ 

C(R5) 

2$ 


CR5)+,@TPOBR 
1$ 


sASCII STRING INPUT ROUTINE 


BR 
INSTR2: RTI 


aC SP),MSG 
#2,(0SP) 


#INBUF ,R4 
#7,R3 
— 


$ 
STKOBR , CR4) 
#200, (CR4) 
CR4)+ , #15 
INST 


SEQ 74 
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1 015710 PARAMS 
sCONVERT ASCII STRING TO OCTAL 
015710 011605 PARAMS: MOV (SP),R5 
015712 012567 000146 MOV CR5)+,LOLIM 
015716 012567 000144 MOV CR5)+,HILIM 
015722 012567 000142 MOV CR5)+,DEVADR 
015726 112567 000140 MOVB CR5)+,LOBITS 
015732 112567 000135 MOVB CR5)+,ADRCNT 
015736 010516 MOV RS,CSP) 
015740 005005 PARAM1: CLR RS 
015742 012704 017444 MOV #INBUF ,R4 
015746 122714 000015 CMPB #15, (R4) 
015752 001420 BEQ PARERR 
015754 121427 000060 i$: CMPB CR4) , #60 
015760 002415 BLT PARERR 
015762 121427 000067 CMPB CR4) , #67 
015766 003012 BGT PARERR 
015770 142714 000060 BICB #60, (CR4) 
015774 152405 BISB CR4)+,R5 
015776 122714 000015 CMPB #15, (R4) 
016002 001406 BEQ LIMITS 
016004 006305 ASL 
016006 006305 ASL RS 
016010 006305 ASL RS 
016012 000760 BR i$ 
016014 104404 PARERR: INSTER 
016016 000750 BR PARAM1L 
;TEST TO SEE IF NUMBER IS WITHIN LIMITS 
016020 020567 000042 LIMITS: CMP RS ,HILIM 
016024 101373 BHI PARERR 
016026 020567 000032 CMP RS ,LOLIM 
016032 103770 BLO PARERR 
016034 136705 000032 BITS LOBITS.RS : 
016040 001365 BNE PARERR 
;STORE NUMBER AT SPECIFIED ADDRESS 
016042 016704 000022 MOV DEVAOR ,R4 
016046 010524 1$: MOV RS ,CR4)+ 
016050 062705 000002 ADD #2,R5 
016054 105367 000015 DECB ADRCNT 
016060 001372 BNE i$ 
016062 000002 RTI 
016064 000000 LOLIM: 0 
016066 000000 HILIM: 0 
016070 000000 DEVADR: 0 
016072 000000 LOBITS: 0 
016073 ADRCNT =LOBITS+1 


SEQ 75 
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01€074 .OCTASC 
sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
016074 017601 900000 OCTASN: MOV OCSP),R1 
016100 062716 000002 ADD #2 ,(SP) 
016104 012167 000130 MOV CR1)+,WROCNT 
016110 112167 000126 1$: MOVB CR1)+,CHRCNT 
016114 112167 900123 MOVB CR1)+,SPACNT 
016120 013167 000120 MOV @CR1)+,BINWRD 
016124 016704 000114 2s: MOV BINWRD ,R4 
016130 116705 000106 MOVB CHRCNT ,RS 
016134 012700 017456 MOV GTEMP,RO 
016140 010403 3$: MOV R4,R3 
016142 042703 177770 BIC #177770,R3 
016146 062703 000260 ADD #260 ,R3 
016152 110320 MOVB R3,CRO)+ 
016154 0062 ASR R4 
016156 006204 ASR R4 
016160 006204 ASR R4 
016162 005305 DEC RS 
016164 901365 BNE 3$ 
016166 012703 017470 MOV #MDATA,R3S 
016172 114023 4$: MOVB -CRO), CR3)+ 
016174 105367 000042 DECB CNT 
016200 001374 BNE 4s 
016202 105767 000035 TSTB SPACNT 
016206 001405 BEQ 6$ 
016210 ii2723 000240 S$: MOVB #240 ,CR3)+ 
016214 105367 000023 DECB SPACNT 
016220 001373 BNE 5$ 
016222 105013 6$: CLRB CRS) 
016224 104401 TYPE 
016226 017470 MDATA 
016230 005367 000004 DEC WROCNT 
016234 001325 BNE i$ 
016236 900002 RTI 
016240 000000 WRDOCNT: O 
016242 000000 CHRCNT: 0 
016243 SPACNT =CHRCNT+1 
016244 000000 BINWRD: 0 





CZOHF -CO 


TLVL > 


016246 


016246 
016250 
016252 
016254 


016310 


016310 


See A RB me ae Oe eee ~ 


SEQ 76 
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-POINT +/DHSCR,DHNRC,OHLPR,DHBA,DHBC,OHBAR, DHBCR, DHSSR, DHSLR, DHRVEC , DHRLVL, DHT / 
;INDIRECT POINTERS 3 VEC ,OHTLVL 





177560 TKCSR: 177560 
177562 TKDBR: 177562 
177564 TPCSR: 177564 
177566 TPDBR: 177566 
. IRP A <DHSCR ,DHNRC ,OHLPR ,DHBA, DHBC ,OHBAR ,DHBCR ,DHSSR ,DHSLR ,DHRVEC, DHRLVL ,DHTVEC, DH 
A: 
.ENDM 
090000 DHSCR: O 
000000 DHNRC: 0 
000000 DHLPR: 0 
000000 DHBA : 0 
000000 DHBC : 0 
060000 DHBAR: 0 
000000 DHBCR: O 
000000 DHSSR: O 
000000 DHSLR: O 
000000 DHRVEC: 0 
000000 DHRLVL: O 
000000 DHTVEC: 0 
000000 DHTLVL: 0 
-VARIA *t/TDATA,RDATA,BYTCNT/ 
;sPROGRAM VARIABLES 
000000 ERRFLG: O ;sERROR FLAG 
000000 PASCNT: 0 ;PASS COUNT 
000000 ERRCNT: O sERROR COUNT 
000000 RETRN: O ;SCOPE RETURN ADDRESS FOR TEST LOOPING 
000000 ESCAPE: 0 sADDRESS FOR ERROR ESCAPE 
000000 FREEZ1i: 0 ;DATA LOOPING RETURN ADDRESS 
000000 ICOUNT: O sITERATION COUNT FOR TEST IN PROGRESS 
000000 LPCNT: 0 sNUMBER OF ITERATIONS THIS TEST 
000000 SAVRO: O 3RO SAVE AREA 
000000 SAVR1: 90O 3;Ri SAVE AREA 
000000 SAVR2: 90 sR2 SAVE AREA ‘a 
000000 SAVR3S: 0 sR3 SAVE ARE 
000000 SAVR4: 0 7R4 SAVE AREA 
000000 SAVR5: Oo 7R5 SAVE AREA 
000000 SAVSP: 0 sSTACK POINTER SAVE AREA 
000000 SAVPC: 90 sCALLING ROUTINE SAVE AREA 
000000 INIFLG: 0 ;PROGRAM SPST IM EZATION FLAG 
000000 STFLG: 9 ;PROGRAM START FLAG 
000000 LAST: Q sLAST ERROR PC 
” aga . <TDATA,RDATA,BYTCNT> 
-ENDM 
000000 TDOATA: 9O 
000000 RDATA: 0 
000000 BYTCNT: 0 





ee a ea a ee es ee oe ER ee eee ee ee 
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1 016364 000400 TBUF : -REPT 400 
2 -BYTE XDATA 
3 -NLIST 
4 XDATA=XDATA+1 
5 LIST 
6 ENDR 

016364 000 BYTE XDATA 
000001 XDATA=XDATA+1 

016365 001 .BYTE XDATA 
000002 XDATA=XDATA+] 

016366 002 .BYTE XDATA 
000003 XDATA=XDATA+1 

016367 003 .BYTE XDATA 
000004 XDATA=XDATA+1 

016370 004 .BYTE  XDATA 
000005 XDATA=XDATA+1 

016371 005 .BYTE XDATA 
000006 XDATA=XDATA+1 

016372 006 BYTE XDATA 
000007 XDATA=XDATA+1 

016373 007 -BYTE XDATA 
000010 XDATA=XDATA+1 

016374 010 -BYTE XDATA 
000011 XDATA=XDATA+1 

016375 O11 .BYTE XDATA 
000012 XDATA=XDATA+1 

016376 012 .BYTE XDATA 
000013 XDATA=XDATA+1 

016377 013 .BYTE XDATA 
000014 XDATA=XDATA+1 

016400 014 -BYTE XDATA 
000015 XDATA=XDATA+1 

016401 015 .BYTE XDATA 
000016 XDATA=XDATA+1 

016402 016 -BYTE XDATA 
000017 XDATA=XDATA+1 

016403 017 -BYTE XDATA 
000020 XDATA=XDATA+1 

016404 020 -BYTE XDATA 
000021 XDATA=XDATA+1 

016405 021 -BYTE XDATA 
000022 XDATA=XDATA+1 

016406 022 -BYTE XDATA 
000023 XDATA=XDATA+i 

016407 923 -BYTE XDATA 
4 XDATA=XDATA+1 

016410 024 -BYTE  XDATA 
000025 XDATA=XDATA>+1i 

016411 025 -BYTE  XDATA 
000026 XDATA=XDATA+1 

016412 026 -BYTE XDATA 
000027 XDATA=XDATA+1 

016413 027 -BYTE XDATA 
000030 XDATA=XDATA+1 

016414 030 -BYTE  XDATA 
000031 XDATA=XDATA+1 

016415 031 -BYTE  XDATA 


Eo eee 





SEQ 78 


a cicene 
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000032 XDATA=XDATA+1 

016416 ¢) BYTE XDATA 
000033 XDATA=XDATA+1 

016417 033 .BYTE XDATA 
000034 XDATA=XDATA+1 

016420 034 .BYTE  XDATA 
000035 XDATA=XDATA+1 

016421 035 .BYTE XDATA 
XDATA=XDATA+1 

016422 036 -BYTE XDATA 
000037 XDATA=XDATA+1 

016423 037 -BYTE XDATA 
000040 XDATA=XDATA+1 

016424 040 -BYTE  XDATA 
000041 XDATA=XDATA+1 

016425 041 -BYTE  XDATA 
000042 XDATA=XDATA+1 

016426 042 -BYTE  XDATA 
000043 XDATA=XDATA+1 

016427 043 -BYTE  XDATA 
000044 XDATA=XDATA+1 

016430 044 .BYTE XDATA 
000045 XDATA=XDATA+1 

016431 045 -BYTE  XDATA 
000046 XDATA=XDATA+1 

016432 046 .BYTE XDATA 
000047 XDATA=XDATA+1 

016433 047 -BYTE XDATA 
000050 XDATA=XDATA+1 

016434 050 -BYTE XDATA 
000051 XDATA=XDATA+1 

016435 051 -BYTE XDATA 
000052 XDATA=XDATA+1 

016436 052 -BYTE XDATA 
000053 XDATA=XDATA+1i 

016437 053 -BYTE XDATA 
000054 XDATA=XDATA+1i 

016440 054 .BYTE XDATA 
000055 XDATA=XDATA+1 

016441 055 -BYTE  XDATA 
XDATA=XDATA+1 

016442 -BYTE XDATA 
000057 XDATA=XDATA+1 

016443 057 -BYTE XDATA 
000060 XDATA=XDATA+1 

016444 060 -BYTE XDATA 
000061 XDATA=XDATA+1 

016445 061 -BYTE XDATA 
000062 XDATA=XDATA+i 

016446 062 -BYTE $XDATA 
000063 XDATA*XDATA+1 

016447 063 -BYTE  XDATA 
000064 XDATA=XDATA+1 

016450 064 -BYTE XDATA 
000065 XDATA=XDATA>+1 

016451 065 -BYTE XDATA 
000066 XDATA=XDATA+1 


CZOMF -CO 


016452 
016453 
016454 
016455 
016456 
016457 
026460 
026461 
016462 
016463 
016464 
016465 
016466 
016467 
016470 
016471 
016472 
016473 
016474 
010475 
016476 
016477 
016500 
016501 
016502 
016503 
016504 
016505 
016506 


elicits 
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-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE DATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA-+1 
-BYTE XDATA 
¥DATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
BYTE XDATA 
XDATA=KDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
_BYTE #XDATA 
XDATA=XDATA+lL1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+lL1 
-BYTE XDATA 
XDATA=XDATA+1i 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1i 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA>1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 


cc OnF -CO 


016507 
016510 
016511 
016512 
016513 
016514 
016515 
016516 
016517 
016520 
016521 
016522 
016523 
016524 
016525 
016526 
016527 
016530 
016531 
016532 
016533 
016534 
016535 
016536 
016537 
016540 
016541 
016542 


a SE ee 
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XDATA=XDATA+12 
-BYTE #XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 


_BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 


-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+3 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE X°ATA 
XDATA=XD? TAeL 
-BYTE «DATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 


XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 


-BYTE XDATA 
XDATA=XDATA+1 
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016543 157 
016544 
016545 161 
016546 162 
016547 163 
026550 164 
026551 165 
026552 166 
016553 167 
016554 170 
016555 171 
016556 172 
016557 173 
016560 174 
016561 175 
016562 176 
016563 177 
016564 
016565 201 
016566 
015567 293 
016570 

015571 205 
016572 206 
016573 207 
016574 210 
016575 211 
016576 212 
016577 213 


.BYTE  XDATA 


.BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 


-BYTE XDATA 
XDATA=XDATA+1 
.BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
.BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA:>1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE #XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
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XDATA=XDATA+1 


-BYTE XDATA 
XDATA=XDATA+1 
-BYIE XDATA 
XDATA=XDATA+1 


.BYTE XDATA 
XDATA=XDATA+1 
.BYTE XDATA 
XDATA=XDATA+1 
.BYTE XDATA 
XDATA=XDATA+1 
.BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-_BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 





CZOHF -CO 


016634 
016635 
016636 
016637 
016640 
016641 
016642 
016643 
016644 
016645 
016646 
0. 547 
016650 
016051 
016652 
016653 
016654 
016655 
016656 
016657 
016660 
016661 
016662 
016663 
016664 
016665 
016666 
016667 
016670 


MACRO VO4.00 27-JUN-85 12:59:01 PAGE 27-6 


_BYTE XDATA 


-BYTE XDATA 
XDATA=XDATA+1 


-BYTE XDATA 
XDATA=XDATA+1 
~BYTE XDATA 


.BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
.BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+¢1 
_BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+¢1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
.BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 


we Vi “LV 


016671 
016672 
016673 
016674 
016675 
016676 
016677 
016700 
016701 
016702 
016703 
016704 
016705 
016706 
016707 
016710 
016711 
016712 
016713 
016714 
016715 
016716 
016717 
016720 
016721 
016722 
016723 
016724 


PIALAY VUE. cle JUN-OD Lei ogyiVl PAGS 





XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 


-BYTE XDATA 


-BYTE XDATA 
XDATA=XDATA+1 
.BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
.BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE  #XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE  XDATA 
XDATA=XDATA+¢1 





CZDHF -CO 


016725 
016726 
016727 
016730 
016731 
016732 
016733 
016734 
016735 
016736 
016737 
016740 
016741 
016742 
016743 
016744 
016745 
016746 
016747 
016750 
016751 
016752 
016753 
016754 
016755 
016756 
016757 
016760 


016761 . 


MACRO VO4.00 27-JUN-85 12:59:01 PAGE 27-8 





_BYTE XDATA 


-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
_BYTE XDATA 
XDATA=XDATA+1 
_BYTE XDATA 
XDATA=XDATA+1 


-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
-BYTE XDATA 
XDATA=XDATA+1 
_BYTE XDATA 





CZDHF -CO 


016762 
016763 


016764 


016764 
016766 
016770 
016772 
016774 
016776 
017000 
017004 
017010 
017016 
017020 


017022 
017026 
017030 
017032 
017034 
017036 
017040 
017042 
017050 
017056 
017062 
017066 
617072 
017074 
017076 
017100 
017102 
017104 
017106 
017110 
017114 
017120 
017124 
017126 
017132 
017134 
017134 
017137 
017142 
017145 
017150 
017153 
017156 


MACRO VO4.00 27-JUN-85 12:59:01 PAGE 27-9 


161020 
177334 
017022 


177316 


016764 
000340 
020164 
000370 
000364 


177174 
177234 
177172 


000002 


161006 


160754 
160720 


.MSG 
012 MTITLE: 





XDATA=XDATA+1 


-BYTE 


XDATA 


XDATA=XDATA+1 


.BYTE 


XDATA 


XDATA=XDATA+1 


EVEN 
.PFAIL 


PFAIL: 


RESTAR: 


PF TAB: 


sENTER HERE ON POWER FAILURE 


MOV RO,-(CSP) 
MO 


MOV #RESTART ,24 


s;SAVE RO-RS ON PROCESSOR STACK 


sSAVE STACK POINTER 
;SET UP FOR POWER UP TRAP ; 3 
sHALT ON POWER DOWN NORMAL 


sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


MOV SAVSP, SP 
MOV CSP)+,R5 


RETRN 


sRESTORE STACK POINTER 
sRESTORE RO-R5 


sSET UP FOR POWER FAILURE 


ee 
Vivi 


t/DHil SINGLE LINE DATA TEST/,t/CZDHF-CO/ 


-ASCIZ 


¢15><12><12>/DHil SINGLE LINE DATA TEST /<15><12> 





CZDHF -CO 


017161 
017164 
017167 
017172 
017175 
017200 
017203 
017206 
017211 
017214 
017217 
017222 
017225 
017230 
017233 
017236 
017241 
017244 
017247 
017252 
017253 
017256 
017257 


017262 
017265 
017270 
017273 
017276 
017301 
017304 
017307 
017312 
017315 
017320 
017323 
017326 
017331 
017334 
017337 


017411 
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MVECTO: 


MREGAD: 


MQM: 


MCRLF: 
MPFAIL: 


MEPASS: 


PASTXT: 


MTSTPC: 


.ASCIZ 


~ASCIZ 


~ASCIZ 


.ASCIZ 
.ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


<15><12>/VECTOR ADDRESS-/ 


<15><12>/CONTROL REGISTER ADDRESS-/ 


4 ?/ 


<15><12> 
/ POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/ 


<15><12>/CZDHF -CO/ 


<15><12>/PASS COUNT = / | 


<15><12>/R/ 
<15><12>/TEST PC-/ 


SEQ 87 


eA) 


SEQ 88 
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017417 055 000 
-EVEN 
10 .EVEN 
11 017422 . TRPTAB 
; TABLE OF POINTERS FOR TRAP DECODING 
017422 015100 TRPTAB: SCOPER 
017424 015554 TYPER 
017426 016074 OCTASN 
017430 015606 INSTRG 
017432 015700 INSTRE 
017434 015710 PARAMS 
017436 015462 SVO5P 
017440 015522 RSO5 
017442 015200 SCOPiR 
12 017444 . BUFFER 
;BUFFERS FOR INPUT-OUTPUT 
017444 000000 INBUF: 0 
017456 .=.+10 
017456 000000 TEMP: 0 
017470 .=,.+10 
017470 000000 MDATA: 0O 
017502 .=.+10 
13 017502 -ERRTAB 
;TABLE OF POINTERS TO ERROR MESSAGES AND DATA 
017502 ERRTAB: 
14 017502 017516 EM1 
15 017504 017702 DTi 
16 017506 017557 CMe 
17 017510 017720 DTe2 
18 017512 017630 EMS 
19 017514 017742 DT3 
20 017516 104 101 124 EMi1: -ASCIZ /DATA ERROR/<15><12>/ExXP REC LINE/ 


017521 101 040 105 


21 017557 104 101 124 EMe: -ASCIZ /DATA ERROR/<15><12>/EXP REC SPEED LINE/ 


CZDHF -CO 


22 


017607 
017612 
017615 
017620 
017623 
017626 
017630 
017633 
017636 
017641 
017644 
017647 
017652 
017655 
017660 
017663 
017666 
017671 
017674 
017677 


017702 
017704 
017706 
017710 
017712 
017714 
017716 
017720 
017722 
017724 
017726 
017730 
017732 
017734 
017736 
017740 
017742 
017744 
017746 
017750 
017752 
017754 
017756 
017760 
017762 
017764 
017764 
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EM3: -ASCIZ /DATA ERROR/<15><12>/ExP 
.EVEN 
DTi: 3 
.BYTE 2 
TDATA 
BYTE 6,2 
SAVR4 
BYTE ,0 
SAVR3 
OT2: 
BYTE 6,2 
RDATA 
BYTE 2 
SAVR3 
BYTE 2,5 
SAVR2 
BYTE 2,0 
SAVRS 
DT3: 
-BYTE 6,2 
RDATA 
BYTE 6,2 
SAVRS 
BYTE 2,6 
SAVR4 
BYTE 2,0 
SAVR5 
.ENDCOD 
ENDCOD: 0 
.END 


REC 


LENGTH LINE/ 


SEQ 89 


CZDHF -CO 
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SYMBOL TABLE 
ADRCNT= 016073 EOP 015000 PARAM = 104405 SWOO = 000001 T24 005232 
BEGIN 001306 ERRCNT 016314 PARAMS 015710 SWO1 = 000002 T25 005430 
BINWRD 016244 ERRFLG 016310 PARAM1 015740 SWO2 = 000004 T26 005626 
BITX = 000000 ERRMSG 015336 PARERR 016014 SWO3 = 000010 T27 006024 
BITOO = 000001 ERRORS 015216 PASARG 015072 SWO4 = 000020 T3 001704 
BITO1 = 000002 ERRTAB 017502 PASCNT 016312 SWOS = 000040 T30 006222 
BITO2 = 000004 ERTABO 015422 PASTXT 017362 SWO6 = 000100 T31 006420 
BITOS = 000010 ESCAPE 016320 PFAIL 016764 SWO8 = 000400 T32 006616 
BITO4 = 000020 EXITER 015400 PFTAB 017124 SWO9 = 001000 T33 007014 
BITOS = 000040 FREEZ1 016322 POPRO = 012600 SW10 = 002000 134 007212 
BITO6 = 000100 HALTS 015360 SW11 = 004000 T35 007410 
BITO7 = 000200 HILIM 016066 SW1i2 = 010000 136 007606 
BITO8 = 000400 ICOUNT 016324 SW13 = 020000 137 010004 
BITO9 = 001000 INBUF 017444 SW1i4 = 040000 14 002046 
BIT1O = 002000 INIFLG 016350 SW1i5 = 100000 T40 010202 
BIT1i = 004000 INSTER= 104404 TBUF 016364 T41 010400 
BIT12 = 010000 INSTR = 104403 TOATA 016356 T42 010620 
BIT13 = 020000 INSTRE 015700 EMP 017456 T43 011040 
BIT14 = 040000 INSTRG 015606 TKCSR 016246 T44 011260 
BIT15 = 100000 INSTRi 015620 TKOBR 016250 T45 011500 
INSTR2 015706 TPCSR 016252 T46 011720 
LAST 016354 TPOBR 016254 147 012140 
LIGHTS 001002 TRPOK 015442 TS 002210 
LIMITS 016020 TRPSRV 015430 TSO 012360 
LINE = 000020 TRPTAB 017422 TS1 012600 
LOBITS 016072 TYPDAT 015540 T52 013020 
LOGICA 015056 TYPE = 104401 TS3 013240 
LOLIM 016064 TYPER 015554 013460 
LPCNT 016326 TYPMSG 015316 TS5 013700 
MCRLF 017257 Ti 001400 T56 014120 
MDATA 017470 T10 002656 T57 014340 
MEPASS 017347 Til T6 002352 
MPFAIL 017262 Ti2 003162 T60 014560 
MQM 017253 Tis 3324 T?7 002514 
MR 017402 T14 003466 VECi 001164 
MREGAD 017217 TiS 003630 VEC2 001174 
G 015622 T16 003772 WROCNT 016240 
MTITLE 017134 Ti? 004134 x = 000000 
MTSTPC 017406 001542 XBIT = 000001 
MVECTO 017175 T20 76 XDATA = 000400 
N = 600001 T2i XLINE = 000000 
OCTASC= 104402 T22 004636 XN = 000061 
OCTASN 016074 T23 005034 Y = 000011 





- ABS. 017766 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 19200 WORDS ( 75 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
CZDHFC .BIN,CZDHFC.SEQ=CZDHFC .DOC ,DHMACA.MAC,CZDHFC P11 





| 
2 


